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は じ め に 


Quick BASIC の 言語 仕様 上 の 大 き な 特 徴 を 一 言 で いう な ら , 構造 化 プ ブロ グラ ミン 
グ が 可能 な 言語 で ある と いう こと で す 。 

Quick BASIC が , この 構造 化 プ ログ ラミ ング を 実現 する うえ で サポ ー ト し た 主 な 
機能 は 以下 の も の で す . 


1. 近代 的 流れ 制御 構造 の 完備 
2. プロ シー ジャ (手続 き ) の サポ ー ト 
3. レコ ー ド 型 な どの デー タ 型 の 拡充 


これ ら の 機能 に より , 従来 型 BASIC と は 比べ も の に な ら な いく らい , 構造 的 に ス 
マー ト な プログ ラム が 書け る よう に な り ま し た 。. 

さて , プ ログラム を 構造 的 に スマ ー ト に 書く こと は , ブロ グラ ム 作 り の 基本 的 な マ 
ナー と いえ ます が , 実用 的 な プログ ラム を 作る うえ で , も う 1 つ 重 連 な こと が あり まき 
す . それ は 過去 の 資産 の 継 基 と いう こと で す . つま り , 過去 に 作っ た 有用 な ライ ブラ 
リ を 手持 ちの 札 ( カ ー ド ) に し て , 与え られ た 問題 に 対し , それ ら を 有機 的 に 組み 合わ 
せ て いく と いう こと が 。 効率 の よい プロ グラ ミン グ 方 法 な の で す . 

従来 型 BASIC に は , ブロ シー ジャ (手続 き ) と いう 概念 が な か っ た ため, 有用 で 汎 
用 的 女 プ ログ ラム を いく らち 作っ て も 。 それ を ライ ブラ リ 化 する こと が で きま せん で し 
re 

と ころ だが, QOuiek BASIC で は これ が 可能 と な り ま し た そこ で 夫 書 で は , 次 の よ 
うな Quick BASIC で 利用 で きる , さま ざま な 江 用 的 ライ ブラ リ を 作成 し まし た . ま 
た , Quick BASIC 特有 の 効果 的 な 使用 法 や , 他 言 語 ( ア セン ブラ , C) と の イン ター 
フェ ー ス の 方 法 な ど に つい て も 紹介 し まし た . 


e MS-DOS イン ター フェ ー ス 

es コマ ンド ・ ラ イン 引数 の 処理 ルー チン 
e 標 準 入出 力 と フィ ル タ 

グリ ング ゲ r アグ アー デュ ー ズ 

es グラ フィ ッ ク 処 理 

e マ ウス ・ イ ンタ ダ ター フェ ー ス 


これ ら を , ユー ザ ・ プ ログ ラム 作成 の 際 の 持ち 札 に し て いた だ け ば , 実用 的 な ブロ グ 
ラム を 作る 際 の お 役に立つ と 思い ます . 

削 著 「Quick BASIC 初級 プログラミング 入門 (上 ) 」 と 合わ せ て , Quick BASIC プ 
ログ ラミ ング の え スピ リッ ト あ 少し で も 伝え る こと が で きれ ば 幸い で す . 


1990 年 5 月 串 西 朝雄 
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GJuick BASIC で 扱え る プア ァイル 編成 法 は ,。 シー ケン シャ ルフ ァイル 。 ラシン ダム ・ 
ファ イル , バイ ナリ ・ フ ァイル の 3 種類 で す . 






| 一 ケ ジ ダン ww ルル <・ プ テ ァ ゴ 老 | 


み カン マ () を 項目 (フィ ー ル ド ) の 区 切り ,。 CR-LF( キ ャ リッ ジリ ター 
ン ・ ラ イン フィ ー ド ) を 行 ( レ コー ド ) の 区 切り と し , ファ イル 先頭 か ら 
の 乏 次 読み 出し / 書 き 出 し を 行う . 






パイ ナリ ・ フ ァイル 





カン マ や CR-LF を 特別 な が コー ド と し て 扱わ ず , 文字 (し バイト) 単位 で , 
ファ イル 先頭 か ら の 逐 次 読み 出し / 書 き 出 し を 行う . 








ーー ラン ダム = プ ァ イル 


固定 長 レ コー ド を ファ イル の デー タ 単 位 と し て 構成 し た も の で , レコ 
ー ド 番号 を も と に , ファ イル 任意 位置 へ の 読み 出し / 書 き 出 し を 行う . 


まだ 、 プ テイ ル の 入出 力 先 を どこ に する か で ,。 デバ イス ・ フ ァイル と ディ スグ ク グ ・ フ 
ァイル に 分 類 で きま す . 





] ディ スク ・ フ ァイル 


プロ ッ ピ ィ イア ディ スジ, ハードディスク に 記 舗 され る ファ イル 。. 
一 般 に ファ イル と いえ ば 。 この ファ イル を 示す . 





デバ イス ・ フ ァイル 


叶 革 >③ で て いい 


デー ポー ド 和 や みみ グ リー シン な どの デパ オス と ファ イル オー プン ずる こと 
で , ディ スク ・ フ ァイル と 同等 な 扱い が で きる 。. 


第 | 草 (Quick BASIC の 効果 的 使用 法 


シー ケン シャ ル ・ フ ァイル 


CD( コ ン パ クト ・ デ ィ ス ク ) の 曲名 , 歌手 , 演奏 時 間 を デー タ と する CD 曲目 ファ イ 
ル を 作り , これ を 管理 する ブロ グラ ム を 示し ます . 





Song$ Singer$ Min Sec 





mm mm mm Eh mh = mi mimi Ei 5 Em mh Em GE 1 


WHILE 1 
PRINT : PRINT : PRINT "次 の メニ ュー か ら 選 択 し て くだ さい ~ 
PRINT "1: デ ー タ の 登録 " 
PRINT "2: デ ー タ の 読み 込み “ 
PRINT “3: 終了 " 
INPUT "メニ ュー 番号 --->": nm の 
SELECT CASE n 書 
CASE 1 
OPEN "b:cd.dat FOR APPEND AS # 
INPUT “曲名, 歌手 , 六 奏 時 間 (分 , 秒 ) ~: Song$, Singer$, Min, Sec 
WHILE Song$ <> “/" 
WRITE #1, Song$, Singer$. Min, Sec 
INPUT “曲名 , 歌手 , 演奏 時 間 (分 , 秒 ) ": Song$, Singer$, Min, Sec 
WEND 
CLOSE #1 
CASE 2 
OPEN "b:cd.dat FOR INPUT AS #1 「 
も LS 
PRINT 曲名 | 歌手 I 綿 奏 時 間 「 
PRINT "ーー キーーーーーー ニ ーーー ニー ニーーーーーーーーーーーーー RE PnPPPP RiHREPR 
Num = 1 
WHILE NOT EOF(1) 
INPUT #1. Song$. Singer$, Min, Sec 
PRINT USING ~### ・ Num: 
PRINT Song$: TAB(28), 1“: Singer$: TAB(50): 1 "」) Mini |) Sec 
Num = Num + ] 
WEND 
CLOSE #1 
PRINT " 何 か キ ー を 押し て 下さ い . . . “" 」 ' 
Pause$ = INPUT$(1) 
CASE 3 
PRINT “終わ り ま す . , . “ 
END 
CASE ELSE 
PRINT “番号 が 違い ます "^ 
END SELECT 


ァイル が な けれ ば ファ イル 先頭 か ら , 
ァイル が あれ ば ファ イル 終 来 か ら の 
革 さ 込み を 行う . 


テ へ へい 8 冬 一 コ 


ユー ご ー つ ペー ココ 





キー 人 入力 が ある まで 待つ . 


WEND 
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一 般 に , デー タ の 新規 作成 に は OUTPUT モー ド , 追加 に は APPEND モー ド を 
使い ます が APPEND モー ド は , ファ イル が な けれ ば ファ イル 先頭 か ら 。 ファ イル 
が あれ ば ファ イル 終末 か ら の 書き 込み を 行い ます の で , ファ イル の 新規 作成 部 分 を 特 
別に 作ら な なく て も 。 APPEND モー ド だ け で 行う こと が で きま す . 


次 の メニ ュー か ら 選 択 し て くだ さい 


1: デ ー タ の 登録 
2: デ ー タ の 読み 込み 


3: 終 了 


メニ ュー 番号 --->? 1 

曲名 , 歌手 , 演奏 時 間 (分 , 
曲名 , 貢 手 , 尊 奏 時 間 (分 , 
曲名 , 歌手 , 尊 奏 時 間 (分 , 
曲名 , 油 手 , 尊 奏 時 間 (分 , 


秒 ) ? 季節 の 中 で . 松 山 千春 ,.3.14 
秒 ) ? 旅 の 宿 . 吉 田 拓郎 .2.51 


秒 ) ? 岬 め ぐり , ウ イー ク 
秒 ) ?/./.0,0 


次 の メニ ュー か ら 選 択 し て くだ さい 


1: デ ー タ の 登録 
2・ デ ー タ の 読み 込み 


3: 終 了 
メニ ュー 番号 ---〉? 
曲名 | 責 手 
ニー ニー キー ニー ニー ニーー ニ ーー ニーーー ニ ーーー ニ ーーー ニー ニー ニー ニーー キー ニニ ーーーー eee nm 
| 季節 の 中 で | 松山 千春 
2 旅 の 宿 | 吉田 拓郎 
3 岬 めぐ り 1 ウイ ー ク 


何 か キ ー を 押し て 下さ い . . . 


・ エ ンド 


*・ エ ンド 4,13 


価 奏 時 間 


作成 し た シー ケン シャ ル ・ フ ァイル cd.dat の 内 容 を ダン プ し た も の を 以下 に 示し 


ます 。 


A>DUMP B:CD.DAT 


Dump Version 3. 


00000000 
00000010 
00000020 
00000030 
00000040 
00000050 


シー ケン シャ ル ・ フ ァイル か ら デ ー タ を リー ド す る に は INPUT # の ほか に , LINE 
INPUT#. INPUT$. INPUT が あり ます . 


22 
8E 
BT? 


8 B 
0 


92 し 


の 放 


3 
63 


4 し 22 F HG 
0D 0A 22 37 
1 1 90 38 
DF 82 AE 82 
81 45 83 47 





"季節 の 中 で ",“ 松 
四条 3. も 。 "所 
の 宿 ", "吉田 垢 郎 
と 。 肖 界 めで 町 
オー カド テ 

89。。 


INPUT$ と INPUT 辛 は カン マ や CR-LF を 特別 な も の と せ ず , デー タ の 流れ (スト 
リー ム ) の 一 部 と し て 扱う も の で , スト リー ム 入 力 と も いい ます . 
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第 | 章 (Quick BASIC の 効果 的 使用 法 


INPUT# … 。 ブ プ ィ ー ル ド 単 位 で リー ド 

LINE.INPUT# … 1 行 (行末 は CR-LEF) 単 位 で リー ド 

INPUT$ … パイ ト 単 位 で リー ド 

INPUT\ … 文字 単位 (ASCII 文字 は 1 バイ ト , 漢字 は 2 バイ ト を 


1 文字 と し て 数 える ) で リー ド 


量 ス トリ ー ム 入力 
次 の ブロ グラ ム 人 ほ 。 ファ イル か ら 12 パ イト 単位 で リー ド し ,。 そ の デー タ を スク リー 
ン に 表示 し て いく も の で , いわ ゆる TYPE コマ ンド の 相当 品 で す .。 





ーー--/* スト リー ム 人 入力 #*/--- 


INPUT "Filename : File$ 
OPEN File$ FOR INPUT AS 角 バイ ト 数 


DO WHILE NOT EOF(1 ン ン ファ イル 番号 


a$ = INPUT$(1, 1) 
IF a$ <> CHR$S(&HA) THEN PRINT a$: 


LO0P 
CLOSE #1 MS-DOS の テキ スト ・ フ ァイル の 行末 は CR ( 0DH), 
ER ーLF(OAHJ と いう 2 つの コー ド が 置か れ て いる . 
PRINT で これ ら の コー ド を スク リー ン に 出力 する と 


いずれ も 改行 を 行う の で , 2 度 改 行 が 行わ れる こと に 
な る た め 。 DAH の 方 は 田 力 し な いよ うに し た 。 


さて , INPUT$ は バイ ト 単 位 で の スト リー ム 入 力 を 行う た め , 漢字 の 入力 に は 適 
さ ず , 上 の プロ グラ ム の 実行 結末 は , 次 の よう に 漢字 部 分 が 文字 ば け を 起こ し ます . 


Filename? b:stream. Das 
ーー を ーー 。 ト IA ま /ーーー 


- 2 交 字 ば け 
INPUT Filename : File$ 
OPEN File$5 FOR INPUT AS #I 





これ を 解決 する に は INPUT$ の 代わ り に INPUT を 使用 し ます . 


ーーー-/* スト リー ム 入 力 (改良 版 ) */--- 


INPUT "Filename : File$ 
OPEN FileS FOR INPUT AS #1 


DO WHILE NOT EOF(1) 
a$ = INPUTY(1, 1) 
IF a$ <> CHRS(&HA) THEN PRINT a$: 

LO0P 

CLOSE #1 





開 字 を | 文字 と し て 読む 


罰 | 行 単位 の 入力 
次 の プロ グラ ム は , ファ イル か ら 1 行 単位 で リー ド し , 行 番号 を 付け て , その デー 
クタ を スグ リー ン に 表示 し て いく も る の で す . 





1 : ′ ---/* 1 行 単 位 の 入力 */--- 

gy 

3 : INPUT Filename : File$ 

4 : OPEN File$ FOR INPUT AS #1 

は 

5 : Num = 1 

7 : DO WHILE NOT EOF(1) 

8 LINE INPUT #1, a$ ーーーーーーー- | 行 リ ー ド . 行末 の CR-LF コー ド は 
9 PRINT USING ~#### : ": Num: aa$ の 中 に 入ら ず 捨 て られ る . 
10 PRINT a$ 

1 NuUm = Num +† ] 

12 : LO0P 

13 : CLOSE #1 

ト 導 


注 ) こ の リス ト は この プロ グラ ム 自身 で 打ち 出し た も の で す . 





9 ラン ダム ・ フ ァイル 


先 に 示し た シー ケン シャ ル ・ フ ァイル 版 の CD 曲目 ファ イル 管理 プロ グラ ム を ,。 ラ 
ンダ ム ・ フ ァイル 版 に 作り 直し た も の を 示し ます . 


レコ ー ド 番号 


GET 半 n, Rec 





PUT せ n, Rec」 
ラシン ダム .・ プ ァイル 
ファ イル 処理 の 窓口 

TYPE CDMusic 
Song AS STRING* 2Z0 
Singer AS STRING* 2Z0 
Min _ AS INTEGER 
Sec AS INTEGER 

END TYPE 


DIM CD AS CDMusic 
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第 | 草 Quick BASIOC の 効果 的 使用 法 





ニーー/4 CD ペスト ・ コ レク ショ ン 昔 プロ グラ ム (ラン ダム ・ ブ ファ イル 版 ) ーー- 


TYPE CDMusic 
SOTng AS SIRING * 20 
Singer ASSTRING * 20 
Min AS INTEGER 
SeC AS INTEGER 

END TYPE 

DIM CD AS CDMusic 


DO 
PRINT : PRINT : PRINT "次 の メニ ュー か ら 選 択 し て くだ さい " 
PRINT "1: デ ー タ の 書き 込み ^ 
PRINT “2: デー タ の 読み 込み ^ 
PRINT “3: デー タ 更 新 " 
PRINT “4: 終了 " 
INPUT "メニ ュー 番号 --->"・ 』 
SELECT CASE n | ー ファ イル ・ エ ンド の 次 の 位置 に 


CASE 1 MM 
R/ W 全 
OPEN "b:cd.rnd FOR RANDOM AS #]1 LEN = LEN(CD) /W 位置 を 移動 


SEEK 1, LOF(1) Y LEN(CD) + 1 、 
INPUT “曲名 , 王 手 , 奏 時 間 (分 , 秒 ) ": CD.Song, CD.Singer, CD.Min, CD.Sec 
WHILE LEFT$(CD.Song, 1) <> "/" 
PUT #l, ,. CD 
INPUT “曲名 , 歌手 , 尊 奏 時 間 (分 , 秒 ) ~: CD.Song, CD.Singer, CD.Min, CD.Sec 
WEND 
CLOSE #1 
CASE 2 
OPEN “b:cd.rnd" FOR RANDOM AS #] LEN = LEN(CD) 
Maxrec = LOF(1) Y LEN(CD) 
CLS 
PRINT “ 曲名 | 歌手 | 演奏 時 間 
PRINT “ーー-+ キ ーーーーーーーーーーーーーーーーーーーーーーー キーーーーーーーーーーーーーーーーーーーーー キーーーーーーーーーーー" 
FOR Num = 1 TO Maxrec 
GET #1. Num. CD 
PRINT USING ~ 謗 # “| Num: 
PRINT CD.Song: TAB(28),: 1 : CD.Singer: TAB(50): 1 “|: CD.Min: "CD.Sec 
NEAI| NuW 
CLOSE # 
CASE 3 
OPEN "b:cd.rnd" FOR RANDOM AS #1 LEN = LEN(CD) 
INPUT "レコ ー ド 番号 ": Rec 
WHILE Rec > 0 
GET # 引 , Rec, CD | RB6C レコ ゴー ド を りー ド 
PRINT CD.Song: CD.Singer: CD.Min: ":": CD.Sec | し て 表示 
INPUT “曲名 , 歌手 , 病 奏 時 間 (分 , 秒 ) ": CD.Song, CD.Singer, CD.Min, og 
PUT #1, Rec, CD 
INPUT "レコ ー ド 番号 ": Rec 
WEND 
CLOSE # Rec レコ ー ド の デー タ を 
CASE ELSE 新しい デー タ に 更新 
PRINT "終わ り ま す . . . “ 
END SELECT 
LOOP WHILEn<4 
END 





人 pow 呈 





TSKYET 
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| | 
ーーー+ーーーーー ニ ーーーーー ニ ーーーー ニ ーー ニー ニーー ニ ーー 一 +ーーー ニ ーー ニーーーー ニ ーー ニー ニーーーー ニ ーーーーー キー ニーーーーー ニ ーーーー 
| 季節 の 中 で | 松山 千春 | き :15 
2 旅 の 宿 | 吉田 拓郎 | 3 : 56 
3 昌 め ぐり | みみ オー の トド テ エンド ド や まま ILS 


多 の メニ ュー か ら 選 択 し て くだ さい 

1: デ ー タ の き 込み 

2: デ ー タ の 読み 込み 

3: デ ー タ 更新 

4: 終 了 

メニ ュー 番号 --->2 3 

レコ ー ド 番号 ? 2 

旅 の 祖 吉田 拓 郎 3 : 55 

曲名 , 歌手 , 尊 奏 時 間 (分 , 秒 ) ? 思い 出 ま くら . 小 坂 恭子 .3.08 
レコ ー ド 番号 ? -1 





バイ ナリ ・ フ ァイル 


シー ケン シャ ル ・ フ ァイル か ら INPUT$ ま た は INPUT 半 を 用 いて スト リー ム 入 力 
を 行う 場合 , 不都合 な 点 が 2 つ あ り ま す . 





・&H1A と いう コー ド を ファ イル ・ エ ンド と し て 認識 する た め ,。 .EXE の よう な バ 
イナ リ ・ フ ァイル の リー ド に は 適さ な い . 

・INPUT$ (512, 1) の よう に リー ドバイ ト 数 を 1 バイ ト 以 外 に する と , ファ イル ・ 
エン ド に 行っ て , その バイ トト 数 が な けれ ば エラ ー と な る 。 


これ に 対し , バイ ナリ ・ フ ァイル は , 必 H1A を ファ イル ・ エ ンド と 認識 せ ず 。 ファ 
イル ・ エ ンド に き て , 指定 バイ ト 数 が な く て も 。 ある だ け リ ー ド し ます . 
以下 に 。 フ ァイル の コピ ー プ ログ ラム を 示し ます 


> > > すす 還 王 息 。 王 生 主 生生 


"ます パイ ナリ ・ フ ァイル きき 


> > 王 半 人 っ きま 表 証 王 王寺 二 ま 二 所 5 守 二  ' 


INPUT 「 ソ ー ス ・ フ ァイル 名 ~: Source$ 
OPEN Source$「『OR BINARY AS ぅ 3 


INPUOT "ディ スト ネイ ト ・ フ ァイル 名 ": Desto$ 
OPEN Desto$ FOR BINARY AS #32 


DO WHILE NOT EOF(1) 
a3$3 = INPUTS(512. #1) 
PUT 32. , 33 


| 』 コー も "<: ビィ デ ー * ーー ニャ リー ーー 
し WP レコ ー ド 番号 を 省略 する と 次 の デー タ 位 置 に ライ ト す る . 


CLOSE #1。 #/ 


バイ ナリ ・ フ ァイル へ の ライ ト は , PRINT#, WRITE は 使え ず ,PUT # だ け で す . 
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デバ イス ・ フ ァイル 


ィ ス ク ・ フ ァイル と 同様 に ファ イル と し て 扱う こと が で きま す . 





ン リ アル ポー ト | 
ン リ アル ポー ト 2Z 
大 グリ ー シ 


キー ボー ド 
プリ ンタ 1 
プリ ンタ 2 
プリ ッ タ 3 
ペン リーン 





一 般 に スク リー ン へ の 出力 は PRINT,。 プリ ンタ へ の 出力 は LPRINT に より 行い 
ます . さて , ある ファ イル の 内 容 を スク リー ン ま た は プリ ンタ に 出力 し た い 場 合 , 
PRINT また は LPRINT で 2 種類 の ブ プログ ラム を 作ら な けれ ば な り ま せん . 

そこ で 。 湊 の よう に CONS , と 上 PT1 。 とい リ アバ イス ファ アオ ル を 刀 択 に より オ 
ーー ブン し 。 そ こと に 出力 する よう に すれ は ば, プロ グラ テラ ム は 1 種類 で すみ ます 


" * ま デバ イス ・ フ ァイル き 


ーー ーー ーー 一 ーー ーー ーー 


INPUT "File name ": File$ 
OPEN File$ FOR INPUT AS 崩 


1NPUT "Printer or Screen (P/S) “~: Dev$ 
IF UCASE$(Dev$) = "P" THEN 

OPEN "LPT1:" FOR OUTPUT AS #2 
ELSE 

OPEN "CONS:" FOR OUTPUT AS #2 ーーーーーー- コ ン ソ ー ル の オー プン 
END IF 





プリ ンタ の オー プン 


DO WIILE NOT EOF(1) 
LINE INPUT 講 , a$ 
PRINT #2, a$ 
「 ょ 放 守 Pa ァ ー ア * 
LO0『 NM %2 が LPTI: で オー プン され て いれ ば プリ ンタ へ の 出力 


m い ーー プ ト 二 『 11 -- い ヽ 
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コン ソー ル 入 出力 











1 MB-DOS エス ケー プ ・ シ ー ケ ンス 


コン ソー ル 出 力 (CRT) ルーチン に ASCII 制御 コー ド や 。 エス ケー プ ・ シ ー ケ ンス 
(エス ケー プ ・ コ ー ド 1BH で は じ ま る 文字 列 ) を 送る こと に より , CRT 画面 の 各種 制 
御 を 行う こと が で きま す . 

MS-DOS の エス ケー プ ・ シ ー ケ ンス は 以下 の と お り で す . 





免 エ スケ ー プ ・ シ ー ケ ンス 






ESC[ pl: pcH カー ソル を (pc, pl) 位 置 に 移動 . pc が x 

ESC| pl: pcf 同上 

ESC= ニ lc カー ソル を (c, |) 位置 に 移動 . 1 と c は 2 進数 で 20H の オフ 
セッ ト を 加え た 値 と する 

ESC| pnA カー ソル を pn 行 ア ッ プ 

ESClpnB カー ツル を 回 行 グ ウシ 

| ESCLpnC カー ソル を pn 文字 右 に 移動 

ESC[pnD | カー ソル を pmn 文字 左 に 移動 

ESG D カー ソル を 1 行 下 に 移動 

ESC E ニュ ー ラ イン ('\n' ま た は cr-lf と 等 価 ) 

ESC M | カー ソル を 1 行 上 に 移動 

ESC[s カー ソル 位置 ( 行 , カラ ム ) と その 表示 文字 の 属性 を セー ブ 

ESC[u ESCls で セー プ ブ し た 内 容 を 戻す 

ESC[6n カー ソル 位置 を 取得 . コンソール 入力 バッ ファ に 
ESCLpl: pcR の 形式 で 値 が 返さ れる 


座標 , pl が y 座標 






| エス ケー プ ・ シ ー ケ ンス 










ESC[0J カー ソル 位置 か ら 最 終 行 の 右端 まで を クリ ア 
ESC[ 1J 先頭 行 の 左端 か ら カ ー ソ ル 位 置 ま で を クリ ア 
ESC[ 2J クリ ア ・ ス クリ ー ン 

| ESC ※* | 同上 

| ESCI OK カー ソル 位置 か ら 行 の 右端 まで を クリ ア 
ESC[1K | 行 の 左端 か ら カ ー ソ ル 人 位置 まで を クリ ア 
ESCI| 2K | カー ソル 行 の 又 字 を すべ て クリ ア 

ESCLpnM pn 行 削除 

ESC[pnL pn 行 分 の 空白 行 を 挿入 





享 へ と 章 S・ 半 
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ESC)0 字 表示 モー ド ( シ ステ ム 婚 定 値 ) 

ESC) 3 クラ ブ 文 学 表示 モー 

ESC[>5h | カー ジル 非 表 示 モ ー ド 

ESC| >5| |。 カー ソル 表示 モー ド ( シ ステ ム 既 定 値 ) 
ESC[>1h 最 下 行 を プロ グラ ム で 使用 可 に する 

| ESC[>1| | 最 下行 を シス テム で 使用 する (シス テム 既定 値 ) 
| ESCL>3h | 1 画面 20 行 モー ド 

| ESC[>3 | 1 画面 25 行 モー ド ( シ ステ ム 既 定 値 


計器 う エー 中田 還 


し PSm | 表示 文字 の 属性 を 指示 , ps の 意味 は 次 の と お り 


司 
[4 





| 李 逗 洲 藻 斗 運 


37(23) …… 白 


な お 。 Quick BASIC の PRINT 文 で は ,、 エス ケー プ ・ シ ー ケ ンス を スク リー ン に 送 
る こ こ は で き な い の で , アメ \ ス 4 身 。 ig ィ イル CONS を オー プン マン し 。 そこ に 測 力 し ます 
たとえば, 画面 の 行 モ ー ド を 20 行 に 設定 する に は 


OPEN “CONS: "FOR OUTPUT AS 


PRINT CHRS$(&H1B) + [>3h" 
ー エ スケ ー プ ・ コ ー ド 


し 事 宇 

次 の 例 は ,。 エス ケー プ ・ シ ー ケ ンス に より 。 画面 の 行 モ ー ド を 20 行 また は 25 行 に 設 
定 す る CrtLine) と , 0( 黒 ) 一 7 ( 自 ) の カラ ー・ コ ー ド に 対応 し た 色 を 設定 する Dos 
COlorte) です. 


た 
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mmm mmm mmmmr msn mmm = ニー mm im=ー- ーー ーー ニー ニー 一 ーー ーー ーー ーー ニー ーー ーー ーー も ーー ーー ツー ーー ーー ーー ーー リー ーー ーー ーー ラー デーーー ソ ーー ご 


DFCLARE SUB CrtLine (f!) 
DECLARE SUB DosColor (c!) 


DIM SHARED fd AS INIEGER 


fd = 


FOR K = 


FREEFILE 


1 10 7 


DosColor k 


PRINI #[d, 


NEXAIk 


"hello" 


ii 


SUB CrtLine (f) 


IF f = 20 THEN PRINT #fd, CHRS(&H1B) + [>3h" 
IF f = 25 THEN PRINT #fd, CHRS(&H1B) + 317 


END SUB 


ーー 


* 表示 色 の 設定 


一 EE 


SUB DosColor (c) 
SELECT CASE c 


END 
END SUB 


CASE 0 
PRINT 
CASE 1 
PRINI 
CASE 2 
PRINT 
CASE 3 
PRINT 
CASE 4 
PRINT 
CASE 5 
PRINI 
CASE 6 
PRINT 
CASE 7 


PRINT #fd, 


SELECT 


#[d, 


#fd, 


#fd, 


#[d, 


#fd, 


#[d, 


# Td, 


cr t の た め の フ ァイル 番号 
OPEN “CONS: FOR OUTPUT AS #fd 


CHR$(&HIB) 
CHR$(&HIB) 
CHRS(&HIB) 
CHR$(&IIIB) 
CHIR$(&IIIB) 
CIIR$(&H1B) 
CIIRS(&II1B) 


CHR$(&H1B) 


二 


二 


二 


天 


† 


[30m「: 
[34m': 
31m「: 
~-【35m「: 
「【32m「: 
~[36m": 


[33m"・: 














守 
三 


赤 
楽 





ー 水 色 
黄色 











20 行 モー ド 
25 行 モー ド 
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スク ロー ル 


MS-DOS の エス ケー プ ・ シ ー ケ ンス を 利用 し て 画面 の 内 容 を ロー ル ・ ア ッ プ ノロ ー 
ル ・ ダ ウン する プロ シー ジャ RollDown, RollUp を 作り ます . 





RolIDown … カー ソル を 最 下行 に 移し , 画面 全体 を 1 行 上 に ロー ル ・ ア 
ッ プ す る. 

RolIUp … カー ソル を 最上 行 に 移し , 画面 全体 を 1 行 下 に ロー ル ・ ダ 
ウツ 9 る 。 


そし て , この RollDown/RollUp を 用 いて , スク ロー ル ・ ア ッ プ / ス クロ ー ル ・ ダ ウ 
ン 機 能 を 持つ タイ プ ブ ・ コ マン ド を 作り ます . 


RollUp 






SUB ABC 
PRINT Hello「 
IF A= ニ 0 THEN 


THEN 





IF A=0 












RollDown | 





テキ スト ・ バ ッ フ ァ 
Buf $ (MaxLine ) 


* プア ァイル は 一 后 し て デキ スト ドド ・ バ パップ ァ に に リード し て お き , この デキ スト ・ パッ 
ファ を 1 画面 分 (24 行 ) の 窓 で の ぞ き , それ を スク リー ン に 表示 し ます . [1 | キー 
で 窓 を RollUp し , | | キー で 窓 を RollDown し ます . 

・ 窓 の 先頭 を Top と する と 窓 の 底 は Top 二 23 となり ます . 

・RollUp 処理 で は , スク リー ン 画 面 全 体 を 1 行 下 に 下げ て か ら , スク リー ン 最 上 
部 に Buf$ (Top-1) の 行 を 表示 し ます . 

・RollDown 処理 で は , カ ー ソ ル を 最 下 行 に 移し ,. ス クリ ー ン の 最 下 部 に Buf$ 
(Top 填 24) の 行 を 表示 する こと で 1 行 ス クロ ー ル ・ ア ッ プ し ます . 

・ こ の プロ グラ ム か ら 抜 ける に は IESCI キ ー を 押し ます . 





2 


ニー ニー 一 一 ーーー ーーー ーー ニー ョ ジョ ーー ィ ーーー mmF Ph Fm mm mmm cpm mm 


DECLARE SUB RollDown () 
DECLARE SUR RoilUp () 


CONST MaxLinc = 300 "最大 行 数 
DIM Buf$(MaxLine) 


OPEN “CONS:" FOR OUTPUT AS #2 コン ソー ル の オー ブン 


[INPUT "File Name : File$ 
OPEN File$ FOR INPUT AS 衣 


じ も の テキ スト を バッ ファ に リー ド 
Fin = 0: Top = 0 
DO WHILE NOT EOF(1) 
LINE INPUT #1, Buf$(Fin) 
IFFin < 24 THEN PRINT #2, Buf$(Fin) 
Fin =Fin+』 
L00P 


DownKey$ = CHR$(0) + CHR$(&H50) ′ 下 矢 果 キ ー の スキ ャ ンコ ー ド 
UpKey$ = CHRS(0) + CHIR$S(&H48) 上 矢 日 キー の スキ ャ ンコ ー ド 
前 0 


a$ = INKEY$ 
IF a$ = DownKey$ AND Top + 23 < く Fin THEN 
RollDown 


Top = Top + 1 
PRINT #2, Buf$(Top + 23) 

END IF 

IF a$ = UpKey$ AND Top > 0 THEN 
Roll1Up 
Iop = Iop - 1 
PRINT #2, Buf$(Top) 

RU 1 ド 

LOO0P WHILE a$ <> CHR$(&H1B) ”。 esScC キ ー で 終わ り 


CLOSE #1, #2 


> > 呈 。 昌和 、 まま 昌和 ま コー デーー 


> 昌和 。 邊 。 軒 、 >>。 ! 


SUB RollDown 
PRINT #2, CHR$S(&HIB) + [25B": 
END SUB 


レー 生野 計時 | 半 。、 放 四 昌利 利 。、 昌 所 生計 時 時 > 証 。 証 = 


* ロー ル ・ ア ッ プ *# 


ーー OO 0 


SUB RollUp 
PRINT #2, CHR$S(&H1B) + [25A「:| 
PRINT #2, CHR$(&HIB) + “MT: 
END SUB 
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テキ スト 画面 の 分 割 。 
テキ スト 画面 を 上 下 2 つ に 分 割 し お の お の 独立 し て 使用 する こと が で きる , テキ 
スト 画面 分 割 処理 プロ グラ ム を 紹介 し ます . 
VIEW PRINT 2 TO 10 


= ニニ ニー ーー ニ ーー ーー ーー ーー ーー ーー ーー ーー ニーー ーーー 一 ーー リラ M う Mー ず た ー ォ ーー ーー ーー レラ ン ンー コーー ッ 9 ピ ツ プ Fー 


Ver 4.5 
お のり 衝 ず ウ 


VIEW PRINT 12 TO 13 


・ 上 ウィ ンド ウ と 下 ウ ィ ン ド ウ の 切り 換え は IE1| キ ー に より 行い ます . 

・ キ ー 入 力 を 行う と Active ウィ ンド ウ に 入力 文字 が 表示 され て いき ます . 
スクロール は 上 ウィ ンド ウツ また は 下 ウ ィ ン ド ウ ご と に 狐 し て 行わ ん ます . 

・ IF1| キ ー に より , ほか の ウィ ンド ウ に 移っ て も 現在 の カー ソル 位置 を 保存 し ま 
す . 


27 


2G 


| 。 一 昌和 5 時 時 昌 生 半生 香 明生 邊 昌 時 和 ま 較 まま 時 時 時 ま 昌 。 時 生ま > まま ーー 生生 コ 


CLS 

LOCATE 1. 1: PRINT STRINGS(36. ご 7): | Active 「: STRING$(36. “-") 
LOCATE 11. 1: PRINT STRING$(80, “-") 

LOCATE 20. 1: PRINT STRING$(80.“-) 


KEY(1) ON 
ON KEY(1) GOSUB KeyTrap 


x| = 1: Yl = 2 ” 上 ウゥ ウイ ンド ウ の 開始 座 橿 
X2 = |: y2 = 19 ”" 下 ウ イン ドウ の 開始 座 柄 
CrtFlag = 0 '「 の 作 チ イオ プッ ぃ ウイ ンド を 示す フラ ゲ 


VIEW PRKINT 2 IO 10 


DO 

a$ = INKEY$ 

IF a$ < ふ > | THEN PRINT a$: 
L00P WIILE a$ <> CHR$(&H1B) 
END 


KeyTrap: ”- キー・ ト ラッ プ 
IF CrtFlag = 1 THEN 
x2 = POS(0): y2 = CSRLIN 下 ウ イン ドウ の 現在 座標 の 保存 
VIEW PRINT: LOCATE 1, ] 
PRINT STRING$(36, “-"): " Active ": STRING$(36, “"-") 
LOCATE 11,. 1: PRINT STRING$(80. "-") 
CrtFlag = 0 
VIEW PRINT 2 T0 10 
LOCATE yl1, xl ′" 上 ウイ ンド ウ の 現在 座 禁 の 復帰 
ELSE 
x| = POS(0): yl = CSRLIN 
VIEW PRINT: LOCATE 11, 1 
PRINT STRING$(36,. “-"): ] Active ~: STRINGS(36, “-") 
LOCATE 1, 1: PRINT STRING$(80, “-") 
CrtFlag = 1 
VIEW PRINT 12 TO 19 
LOCATE y2, x2 
END IF 
RETURN 
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直接 キー 入力 


INKEY$ に よる キー 入力 は , キー を 押し た と き の 応 答 速 度 が 遅く ス ピー ド が 要 
求 さ れる プロ グラ ム で は ちょ っ と 待つ 感じ し に な り ま す . 
そこ で , キー 入力 ボー ト か ら 直 接 キ ーー 入力 を 行う 方 法 を 示し ます . PC-9801 シ リー 
ズ の キー 入力 ボー ト は &H41 で , この ボート に 入力 され た キー の スキ ャ ン ・ コ ー ド が 
入っ て きま す . し た が っ て 1 文字 の 直接 キー 入力 は , 
KeyCode = INP(&H41) 


な りり ます 、 

と ころ で 、 INP に よる ギー 入力 で は 。 キー 入力 パッ プ ァ に 入力 きれ た デー タ は た 
ま ゥ てい くだけ で す の で 、 パ ペッ ファ が いっ ぱい に なる と それ 以上 キー 入力 は 行え を 
K な り ま す , 

価 単 に キー 入力 バッ ファ の デー タ を 捨て る に は , 

KeyCode = INP(&H41): q$= INKEY$ 


と し ます 
以下 に 直接 キー 入力 を 用 いた ラケット ・ ゲ ー ム の プロ グラ ム を 紹介 し ます . 





ボー ル の 位置 を (x,y) と する と , ボー ル の 移動 式 は 。 


X ニ メ X 十 a 
y =y 十 b 


で 表せ ます 。 上下 の 休 に 当 だ っ た と き は b の 谷 を 、 左 の 壁 ま た は テラ ケッ ト に 当 た 
っ た と き は a の 符号 を 反転 する こと で , ボー ル を は ね 返す こと が で きま す . 


珍 ボ ー ル の 反射 b ニ ーb | 





回 *ー 
7 の [ Y 
We | 円 キー 記 
ボー ル (x,y) 
の 
' _- 20 
b=-b 。 一 = 
x 座標 3 


2 


30 


FOR k = 1 TO 58: PRINT CHR$(&IH87): : NEXT k: PRINT ′ 壁 
FOR k = 1 T0 17 
PRINT CHR$(&IH87): SPACE$(56): CHR$(&H87) 
NEXT k 
FOR k = 1 TO 58: PRINT CHR$(&H87): : NEXT k: PRINT 


Yl = 7 ”。 ラケット の 初期 位置 
LOCATE y1, 53: PRINT ~[" 

Aa = ミ j: bz _ 反射 因子 

Score = 0 _ 得点 


FOR n = 5 TO 1 STEP -] 
LOCATE 1. 40: PRINT " 月 9 n 
X = 15: y = INT(2 + 10 * RND(1) ) _ ボー ル の 初期 位置 
DO WHILE x<53 
LOCATE y, x: PRINT “o~ 
KeyCode = INP(&H41): q$ = INKEY$ キー 人 入力 
IF KeyCode = 58 THEN GOSUB Up 
IF KeyCode = 51 THEN GOSUB Down 
IF x = 2 THEN a = -a ” 縦 時 で の 反射 
IFy=20Ry=18THENb=-b _ 横 壁 で の 反射 
LOCATE y, x: PRINT "“ | 
IF x = 52 AND yl -2<yANDy く yl+ 2 THEN GOSUB Hit 


X = X+ ai:Y=Y+Db ~。 ボー ル を 進め る 
LO0P 
NEAI n 
kND 
Up: ” ラケット を 上 に 


LOCATE y1,。 53: PRINT “ 
IFYyl>2 THENY1 =Y -] 
LOCATE y1, 539: PRINT 上 
RETURN 
Down: -。 ラケット を 下 に 
LOCATE yl 53: PRINT 
IF y1 く 18 THEN y1 = yl + 1 
LOCATE y1. 53: PRINT[ 
REIURN 
上 1t: タタ ド だ 当たっ た 時 
4 = -a: X = X ーー ] 
SCOTGC = Score + 1] 
BEEP 
LOCATE 1、1I0: PRINT ” た : Score 
RETURN 
2 コ ァ = 1 証 還 還 間 還 間 間 間 間 間 暗 題 コリ / ィ 上 
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文字 列 処理 


| 





党 字 の 扱い 








文字 列 中 の 漢字 は , シフ ト JIS コー ド で メモ リ 上 に 上 位 バ イト , 下位 バイ ト の 順に 


= 


格納 され て いま す . た と え く は 次 の よう に で す . 
下位 





日 





上 位 


と ころ で , ASC, CHR$ で 扱う 漢字 の コー ド は , シフ ト JIS コー ド で は な く , 漢字 
連続 コー ド と いう 特殊 な コー ド で す . 
次 の プロ グラ ム は , 漢字 連続 コー ド と TIS コー ド の 対応 を 示す も の で す . 


ーー-/* 漢字 連続 コー ド *%/--- 
CLS 
FORn= 1] IO393 

READ st, fin, kind$ 


PRINT : PRINT "----- 種別 : ": kind$: " ーーーーー" 
PRINT “ 湊 字 連続 コー ド : ~: st: "-": fin 
PRINT "JIS コ ー ド  : “| JS$(CHRS(st)): 「-" JIS$(CHRS(f in) ) 


FOR k = st TOT『in 
PRINT CHRS(): 「 『: 

NEXT k 

PRINT 
NEX] n 
DATA 256.363." 記 号 " 
DATA 459.533,~ 英 ・ 数 字 " 
DATA 538.620." ひ ら が な " 
DATA 632.717." カ タカ ナ ~ 
DATA 726.781." ギ リ シ ャ 文 字 " 
DATA 820.900." ロ シア 文字 " 
DATA 1384.1476, "特殊 文字 " 
DATA 1666.4630,~ 第 1 水準 漢字 ^ 
DATA 4674.8057," 第 2 水準 漢字 " 


J1 


ユー メメ 2 


256 - 3643 


ゃ 。 十 


| ご レロ 


| : =、 軸 


に 


間 本 
ュ 。 多 


, = ニーー oF ぐ > 
( へ で 
So 


、 へ ヘム 8O 


ー・ 敗 族 


ーー ハハ @ 昌 
0 ハツ W 一 
・e 一 せ キー 
. セ へ 91 
- 直 一 i 荘 1 
| 

ー 杜 旨 ※※ 


の 放 | @ 共 


〇 ほ デ 
ロビ *m 
つ m 


ビエ 


天 思 mN 
よび ざり の らら 
ポロ. で 史 
ポ 〇 0 まァ 
省 と 
の 受 Q コ 


OO. コ 」 


459 - 533 
2330-237A 


へ や で - つ 
で 人 


ーー こつ 登り 


S38 - 620 
2421-2473 


: ひら が な ーー--- 


| の 06 6 寺 り 
: 財 一 
| つ QOSO)teos 


: カタ カナ ----- 


mー モ 十 
nl トモ 玉 トロ 
むふ 中 トド 
ふく ロ 
ふぐ っ 
へ ト さる 
征 呈 か 
中 愉 R 
祥 ふ うり 


で やり mm 


エエ ー ォ オ 
ソ ゾ 
か 議 | 
に 1 le 


エエ 末 
ズ セ で ゼ 
ハバ パ 
ャ マギ 


632 - 了 717 
2521-2576 


" ま 証 


に 敵 陸 こ 1 57// が 
抽 葉 ロ 
! 期 の ト 和 本 セト 


! 赴 ー 


! 都 ら ト か と 


へ 
で KK 


こ の そこ 


ロ 。 


ピ 人 や さき 


〇 ょ 全 


(GR 


と 9 せ 


726 - 781 


2621-2658 
E Z 可 ら @ 
0 


ギリ シャ 文字 ----- 


Fm 避 
C) 所 の 
ロロ 宙 
ピ 西口 
〇 連 古 
の ヨ 
デ 。 @ 当 
ピピ 号 ア 
の に 9 ヒロ 
世 (⑪) 外史 
で ご 員 ら 6 せ 
(の 0 生 Q ら 
寄 凸 ヒ 
1 コー 
go 
| 
填 
員 ] ロ . 
KS 
ト 
ピ 
ば 
ロ 。 ET 
ウル 
語 員 1 四 安 ェ エ 
本 電 品 
全品 全 
! 二 
者 い そら 忌 ド 


1384 - 1476 
2D21-2D7D 


し と も 


⑦ 
WI 
隊 
庫 
〆 


ビジ 受 コ 


下記 起 放 世 涙 
学外 貴 時 刀 沿 
に キー 
1 症 王 kB ド リー キー 
玉 応 宣 | 銘 
中 居 只 本 演 織 
明 収 誰 誤 樽 可 
典 年 栓 生理 鹿 
本 隊 類 客 虹 理 
舞 窒 机 羽 奈 避 
鬼 室 雷 共 応 毅 
周 供 具 困 明 中 
39 胡 欧 頸 国 誠 
oo 
ST 室 堪 庄 世 訪 
_ 本 翌 閣 豆 攻 
と 眉 思 選 弧 玉出 
呈 < 

ps | 披 軸 答 本 小江 
本 志 n 

, 期 の 層 妥 べ 用 社 


! 赴 
| 都 ら 胃 出 糧 表 抱 寺 


1666 - 4630 
30Z1-4FS3 


由 水準 漢字 ----- 


に ドコ ー ト ニコ 
モト エー ユー ニニ 
に 世 計 庄 純 経 


起 下 秒 妊 臨 
に トー トー トコ 
怪人 宮 告 要綱 


[- こ た ゴ に 4、 1 | 


ーー 記 得 再 軸 悪 


3 で さ - ユ オー 
岐 記 幸 土 奉 間 
臣 記 邊 荘 下 
ペ モ 四 想 和 器 
ー ド 忠誠 半 終 
S 共 記 導 可 

/ ス だ 時 吾 型 


4674 - _8057 
了 737 也 


人 
和 
ま 
テ 
い 二 折 地 下 
て る 敵 用 


" 半 
喜 1 因 青 電 称 章 抱 
ト -- 肖 
| 類 の IT 選 守 生 午 大 
し 
「 郷 っ 行 や 型 窟 琵 


4 


し 4 
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g g| 漢字 版 部 分 文字 列 の 取 り 出 し 


朱 字 版 の MIDS は あり ます が 。 LEFT$。RICHTS の 漢字 版 は な い の で , KIeft$ と 
Kright$ を 作り まし た . 








ーーー-/* 漢字 版 部 分 列 の 取り 出し #--- 


DECLARE FUNCTION Kleft$ (a$, n!) 
DECLARE FUNCTION Kright$ (a$, n!) 


a$ = "構造 化 Basic で す " 


PRINT Kright$(a$, 7) 
PRINT Kleft$(a$, 8) 


an mmm = = PP mm mm = mh sm mm im ppm rim mr Fi mm mmm mm mm msi 


== m mmm rssi ire ms sm mm iam mm ipa mm = emem emi ili 1 1 拓本 ii 


FUNCTION Kleft$ (a$, n) 
Kleft$ = KMID$(a$, 1, n) 
END FUNCTION 


EE 


ニー == = ニーーー ニ ーー ニーー ニ ーーーーーーーーー ン ーーー ず ーー ーーーーーー ョ ーー ョ ーッ て コ プ ビビ 


FUNCTION Kright$ (a$. n) 
Kright$ = KMID$(a$, KLEN(a$) - n + 1, n) 
END FUNCTION 
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文字 検査 ライ ブラ リ 





文字 の 種類 を 調べ る is 一 (c$) 関 数 を 作り まし た . 


isalnum(c$) … C5 が アル ファ ベッ ト か 数 字 な ら 真 (一 1)、。 そ う で な い 


な ら 偽 (0 ) を 返す . 

c$5 が アル ファ ベッ ト な ら 真 (一 1), そう で な いな ら 偽 
( 0 ) を 返す . 

c$ が 数 字 な ら 和 真 ( 一 1), そう で な いな ら 偽 (0 ) を 返す . 
c$ が 英 小 文字 な ら 真 (一 1)、 そう で な いな ら 偽 (0 ) を 
返す . 


isupper(c$) … CC$5 が 英 大 文字 な ら 真 (一 1), そう で な いな ら 偽 (0 ) を 


isxdigit(c 和 や ) 


返す . 
c$ が 16 進 文字 (0 一 9, AF, aー) な ら 真 (一 1), そう 
で な いな ら 偽 (0 ) を 返す . 


*/--- 


1salnum% (c$) 
isalpha% (c$) 


isdigit% (c$) ' 18 lOwer 
jslower% (c$) 1 UDDeT 
isuDDper% (c$) 3 18 other 
isxdigit% (c$) : 1S lower 


・ js digit 





: is 

IF isupper(a$) THEN 
PRINT "upper' 

ELSEIF jislower(a$) THEN 
PRINT "lower' 

ELSEIF isdigit(a$) THEN 
PRINT "digit 


PRINT “other~ 


「 昌 昌 間 旨 趣 遇 記 、 記 まっ 王 一 OO 


ーー 年 - - 目 - 邊 画 時 _ 天 _ 邊 邊 四 思 呈 一 所 記 克 肖 当っ 年 = 所 一 5 半 5 


FUNCTION isalnum% (c$) 
0 < c で $ANDc$3 〈= 9 
~ <= UCASE$(c$) AND UCASE$(c$) <= 7 
IF Numeric OR Alpha THEN 
lsalnuW% = -] 


isalnum% = 0 
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> 。 。 。 。 き 。 ] 


ーー リョーi0 ぞ ーー ジジ ぉ ーー ーー ーー ビー 


FUNCTION jsalpha% (c$) 


IF A <= UCASE$(c$) AND UCASE$(c$) <= “2~ THEN 


isalpha% = -] 
ELSE 
isalpha% = 0 
END IF 
END FUNCTION 


レー 昌利 中 時 生生 思 。 記 。 下 還 時 四 時 。 半 | 


や や 明王 計時 昌和 年 まき 且 。 1 


FUNCTION isdigit% (c$) 
IF 0 < く c$ AND c$ <= "9" THWN 
isdigit% = -] 
ELSE 
isdigit% = 0 
END IF 
END『UNCTION 


ai 


FUNCTION islower% (c$) 
IF a <= c$ AND c$ <= “2” THEN 
islower% = -| 
BLSE 
lslower% = 0 
END IF 
END FUNCTION 


EE = 還 | 


EE = 二 凍 | 


FUNCTION isupper% (c$) 
IF 4 <= c$ AND c$ <= "7" THEN 
1SUDDeT% = -] 
ELSP 
ISupper% = 0 
END IF 
END FUNCTION 


レー 時 > > > 年 年 昌 、 昌 。 計 。 寺 > まき 。 まき 。 きき キー 


FUNCTION jsxdigit% (c$) 
Digilt = 0 <= c$ AND c$ <= "9" 
Alpha = A <〈 く = UCASE$(c$) AND UCASE$(c$) <= “F" 
IF Digit OR Alpha THEN 
1SsXdIgIt% = -1 
ELSE 
isXdigit% = 0 
END IF 
END FUNCTION 


_UuicK BASIC の 効果 的 使用 法 


3O 





Text$ に 格納 され て いる 文字 列 を , Delimita* で 示さ れる 区 切り 子 ご と に 切り 呈す 
関数 Token$ (Text$, Delimita$) を 作り ます . 






Ce 
8 


な お ,。 Text$ の 2 番目 以後 の トー クン を 取り 出す に は , Text$ に "”"( ス ヌル 文字 列 ) を 
指定 し 。 1 中 = Tolkens("" の と し ます . これ で 次 の トー クン js が 取り 測 さ れ ま 
す . 


”---/* トー クン の 切り 出し */--- 
DECLARF FUNCTION Token$ (Text$, Delimita$) 


3$ = ~ IF a<>0 then s=sS+]| “ 








b$ = Token$(a$. "「) 
DO WHILE b$ < ““ 
PRINT b$ 
b$ = Token$("",。 “) 


| 番 最初 の トー クン の 取り 出し 





2 番目 以後 の トー クン の 取り 出し 
L00P 


ーー ーー ーー ーーーー リ ピリ 


認 Ki し L__ 才 


FUNCTION Token$ (Text$, Delimita$) 





STATIC ji, a$,. n 静 的 変数 
bD$ = "" 
IF Text$ <> ~" THEN "最初 に 呼ば れ た 時 
1 si 
a$ = Tex【$ 
= KLEN(a$) 
END IF 
flag = 0 "Delimita Skip Flag ーーーーーー ト ー ク ン の 前 に 区 切り 子 が 連続 し て い 
DO 間 昌 る と き に , それ を 読み 飛ば す フ ラグ 
W 1 


c$ = KMID$(a$, i, 1) 
IF c<$ <>〉> Delimita$ TIEN 


b$ = b$ + c$ 
flag = ! 
ELSEIF flag = 1 IIHEN 
Token$ = b$ 
EXIT FUNCTION 
END IF 
LOOP WIILE 1i <= nm 
Tokcn$ = b$ 


END FUNCTION 
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5 文字 列 の リプ レイ ス 





Text$ に 格納 され て いる 文字 列 の 中 か ら Key$ で 示さ れる 文字 列 を 探し. mi 
Rep$ で 示さ れる 文字 列 に 置き 換え る サブ ルー チン ・ プ プロシージャ Replace(Text$ . 
Key$, Rep$) を 作り ます . 


Lp 三 KINSTR( Text$, Key$) 
Rp 三 LpKLEN(Key$) 


(コーキ 


_N 三 KLEN(Text$) 一 Rp 十 ] 
KMID$(Text$, Rp, N) 











KMID$(Text$, 1, Lp-1) 





Rep$ 
「 ーー-/* 置き 換え (リブ プ レイス) キ */--- ' ーー 一 
| --- か すみ 草 の 花 --- 
DECLARE SUB Replace (Text$. Key$, Rep$) | いつ も いつ も 思っ て た 
| か すみ 草 の 花 を あな た の 部 尺 の 中 に 
CLS 投げ 入れ た く て 
READ Text$ そし て 君 の ベッ ド に 
DO WHILE Text$ < “/" か すみ 章 の 邊 い 花 し きつ め て 
Replace Text$, "サル ビア ", "か すみ 草 " 僕 は 君 を 死ぬ まで 抱き し め て いよ うと 
Recplace Text$, “ 紅 ", "" “ ーーーーー ーーー 
PRINT Text$ 
READ Text$ 
LO00P 
DATA --- サル ビア の 花 ---" 


DATA "いつ も いつ も 罰 つ て た " 

DATA "サル ビア の 花 を あな た の 部 屋 の 中 に ^ 
RATA “投げ 人 れ た く て “ 

DATA “し て 君 の ペッ ド に 

DATA "サル ビア の 紅い 化し きつ め て "~ 

DATA “ 僕 は 君 を 死ぬ まで 抱き し め て いよ うと " 
DATA / 


ビビ e 


SUB Replace (Text$. Key$, Rep$) 
D = KINSTR(Text$. Key$) 
WHILE Lp < く > 0 
= Lp + KLEN(Key$) 
N = KLEN(Text$) - Rp + 1 
Text$ = KMID$(Text$ 1, Lp - 1) + Rep$ + KMID$(Text$, Rp. N) 
Lp = KINSTR(Rp, Text$, Key$) 
WEND 
END SUB 


3/ 


ゼロ パッ ディ ング 

ーーーーーーーーーーーーーーーーーー ーーーーーーー 乱 
数 値 を 出力 する 際 に , 出力 桁 の 余っ た 左側 に 0 を 埋め る 関数 . 

Zeropad$(a, n。 Radix$) を 作り ます . 


し 出力 を 16 進 に する か 10 進 に する か 





"HH"……16 進 
PD"…10 進 
出力 桁 数 
数 値 デ ー タ 


ーー ニー-/* 0 パッ ディ ング キ /--- 
DECLARE FUNCTION Zeropad$ (a!. nl! Radix$) 


に LA 
FOR k = 0 TO 1000 STEP 100 

PRINT Zeropad$(k, 4, 日 ), Zeropad$(k. 4, ~D~) 
NEXT k 


レー。 時 。 昌 > 時 時 > Whv 。 。 昌 > > まま 年 上 。 昌和 、 | 


mi mh iimn Rmr iii (5 me 本 mi 5 cm 


FUNCTION Zeropad$ (a, n, Radix$) 
IF UCASES(Radix$) = HH TIIEN 
7eropad$ = RIGHT$(STRING$(n, "0") + HEX$(a). nm) 
ELSE 
Zeropad$⑬ = RIGHT$(STRING$(n,。 “0~) + LTRIM$(STR$(a) ), n) 
END IF 
END FUNCTION 
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1 精度 


時 0.01 を 10U 回 定 す 
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数 仁 貸 








Quick BASIC も ほか の BASIC と 同様 , 0.01 を 100 回 邊 し て も 1 に は な り ま せん . 
これ は 数 の 表現 に 2 進数 を と り 入 れ て いる だめ, 小数 を 表現 する と き に 誤差 が 出 て し 
まう た めで す . 倍 精 度 実数 を 使っ て も 誤差 は 出 ます . 


PRINT USING #. 計 人 ・ SUm: 


"ニー--/ ま 0. 
し LS 
Sum = 0 
FOR k = 1 TO 100 

SUMM = SU † .0U1 
NEAT 
0.0100000 0.0200000 
0.0900000 0.1000000 
0.1700000 0.1800000 
0.2500000 0.2600000 
0.3300000 0.33999339 
0.4099999 0.4199999 
0.4899998 0.4999998 
0.5699998 0.579999! 
0.5499997 0.659999! 
0.7299996 0.7399996 
0.8099995 0.8199995 
0.8899994 0.8999994 
0.9699994 0.9799994 


.0300000 
.1100000 
.1900000 
.2700000 
.94999339 
.4299999 
.5099998 
.5899997 
.6699997 
.7499995 
.8299995 
.9099934 
.9699934 


ーー ーー ーー 


0 1 を 100 回 足す #/--- 


.0400000 
.1200000 
.2000000 
.2800000 
.39J9999 
.4399998 
.v199996 
.999999! 
.5799996 
.7599996 
.8399995 
99994 
9999993 


.0500000 
.1300000 
.2100000 
.2900000 
.95999939 
.4499998 
ひん 99996 
.5099997 
.5699996 
.7699995 
.8499935 
.9299994 


.0500000 
.1400000 
.2200000 
.3000000 
・9「999939 
.4599936 
.9399998 
.5199997 
.5999995 
.・「799995 
.9999995 
きき 93994 


.0700000 
.1500000 
.2300000 
.3100000 
.9699999 
.4699998 
.0499996 
.5299997 
. 7099995 
.7899995 
.8699995 
.9499994 


.0800000 
.1500000 
.2400000 
.3200000 
9999999 
.4799998 
.v099998 
.539999』 
199995 
.1999995 
0199995 
は 4 


3 ツ 


還 有 効 本 数 





炊 の ブロ グラ ム は 単 精度 実数 型 と 倍 精度 実数 型 の 有効 桁 数 の 違い を 見 る も の で す . 


ーー-/* 有効 桁 数 */--- 


S = 】: ds# = 1# 
FORNK = 1 IO 20 

PRINT s, ds# 

S = Ss キネ 10 

ds# = ds#* 10# 
NEXT k 





ーー 人 へ 寺 来 


| 

10 

100 
1000 
10000 
100000 
1000000 
1E+07 
IE+08 
1E+0 9 
1E+10 
1E+] 1 
1E+12 
1 E+13 
1 E+14 
1E+1I5 
IE+156 
1E+17 
E+18 
1E+19 





] 

10 

100 

1000 

10000 

100000 

1000000 
10000000 
100000000 
1000000000 
10000000000 
100000000000 
1000000000000 
10000000000000 
100000000000000 
1000000000000000 
1D+156 

10D+17 

1D+18 


1D+19 


Nss-BASIC(86) な ど で は , a^2 と a*a は 必ず し も 一 致し ませ ん で し た が , Quick 
BASIC で は 一 致し ます . つま り Quick BASIC で は , a^2 の よう な 整数 べき は 展開 
公式 で 計算 せ ず , a*a と し て 計算 し て いま す . 


ーーー-/* 直角 3 角形 の 組合 せ (べき 乗 の 精度 ) *#/--- 


MaxNum = 20 


FOR a = 1 TO MaxNum 
FOR b = 1 10 』 
FORc = bTOa 
IF a 2 = 
NEXT c 
NEXT b 
NEXT a 
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b _ 2+c 2 TIHENPRINT a, b,. c 


ーーーN。。-BASIC(86) な ど で は 


aa※ a ョ デニ bD ネネ b 十 C ネ CcC 





と し な けれ ば 正しい 結果 は 得 ら れ な い . 
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男 実数 の 範囲 


単 精度 実数 で 表せ る 範囲 は , 一 3.402823E 十 38ー3.402823E 士 38 です. 一 1.175494 
Eー38 一 1.175494 セ ー38 は 0 と し て 扱わ れ ま す . 


0 


ー3.402823E 十 38 | | 3.402823E 十 38 
ー1.175494 セ ー38 1.175494 セ ー38 


倍 精 度 実数 で 表せ る 範囲 は ー1.797693134862316D 十 308 一 1.797693134862316D+ 
308 で す . 一 2.225073858507201Dー308 一 2.225073858507201Dー308 は 0 と し て 扱わ れ 
十 す 。 


0 


ー1.797693134862316D 十 308 ] | 1.797693134862316D 十 308 
ー2 225073858507201D 一 308 2.225073858507201D 一 308 


次 の ブ プログラム は , これ ら の 値 の 最大 値 , 最小 値 を ブログ ラム 中 に 記述 し た も の で 
す . 

最小 値 を 表す の に 1.175494 セ ー38 と 直接 書く と , イン タブ リタ は この 値 を 0 に し て 
し まう の で ,、 1.175494 を 2 合 し た 値 を 2 で 割る と いう 方 法 を と り ま し た . 


ーーー-/* 実数 の 男 囲 */--- 


SInglcMax = 3.402823E+38 還 

SingleMin = 2.350989E-38 / 2 " ー6 に する と オー バー フロ ー す る . 
DoublcMax# = 1.797693134862315D+308 

DoubleMin# = 4.450147717014403D-308 / 2 


PRINT SingleMax. SingleMin 
PRINT DoubleMax#,。 DoubleMin# 
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実数 値 を 整数 型 変数 に 代入 する と き , 小数 部 は 四捨五入 (.5 以 下 は 切り 捨て ら 
れ , .5 を 超え る 場合 は 切り 上 げ ら れる ) さ れ ま す . 
うま り 。 
A92=34 .5 
B9%=34.51 
と も た と き 。 人 A 必 信 34。 BB は 35 と な りき ます 





式 の 中 で 型 が 混合 し て いる 場合 は , 精度 の 高い 方 に 合わ せ て 計算 され ます . な お , 
この よう な 混合 演 算 で は , 演算 の 順 訂 に より オー バー フロ ー す る こと が あり ます . 


256*※256*1& 256*(256*1& ) 
し L_ [| 
200 父 
し て 0 と な る エラ グー と な る | | 
256 * 256& で 
0*1& 65536 & 
で 0 


単 精度 実数 が 借 精 度 実数 に 変換 され る と き , 誤差 を 伴う 場合 も あり ます . 






PRINT 1.1*1.1,。 1.1*1.1#,。 1.1#*1.1# 


1 .210000026226044 ] 1 


つま り , 単 精度 の 1.1 が 倍 精 度 に 変換 され る と き , 誤差 を 伴う た め 。1.1*1.1# は 
1. 中 に は なら な い の で すず す . 

算術 関数 の 引数 が 単 精度 な ら 結 来 は 単 精度 , 引数 が 倍 精 度 な ら 結 果 も 倍 精度 と な り 
ます 、 つ まり 。 


SIN(3.14159/180*45) 
は , 

.7071054 
と な り , 

SIN(3 .14159/180 * 45#) 
は , 

.7071063620013581 
と な り ま す . 
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g g| 数 値 演算 コ ・ プ ロ セ ッ サ 


Ver.4.5 で は エミ ュ レ ー タ ダ ・ モ ー ド で 動作 する イン タブ リタ OBE EXE を サザ ポート 
し て いま す . この イン タブ リタ は , 数 値 演算 コ ・ プ ブ プロセッサ (8087/80287/80387) が マ 
シン ン に 載っ て いれ ば それ を 使い 。 載っ て いな けれ ば エミ ュ レ ー タ ・ モ ー ド で コ ・ プ ブロ 
セッ サ と 同等 な 精度 の 計算 を 行い ます . 

これ に 対し , QB.EXE は 代替 数 値 演算 な の で 精度 は 低く な り ま す が , コ ・ プ ロ セ ッ 
サ が な く て も , ある 程度 高速 な 処理 が 行え ます . 

次 の プロ グフ ム を 各 モ ー ド で ベン チマ ー ク テス トト し た 結果 を 示し まず す . 





。---/* コ ・ プ ロ セ ッ サ #/--- 


RG = 3.14159 / 180 
Sum = 0 


PRINT TIME$ 

FOR x = 0 TO 360 SITEP .05 
Sum = Sum + SIN(x * Rd) 

NEXT x 

PRINT TIME$ 


PRINT "Sum= : SuW 


ーー で - ー ーー _o5E! EXE 


ー プロ ャ > ッ サ ぁ り PC-9801RA 








罰 NO87 境 変数 
QBE.EXE で は , 実行 時 に 数 値 演算 コ ・ プ ロ セ ッ サ の 存在 を 調べ 。 あれ ば コ ・ プ ロ 
セッ サ を 利用 し な けれ ば エミ ュ レ ー タ を 使用 し ます . 
と ころ が , NO87 と いう 環境 変数 を , 
SET NO87= メ ッ セ ー ジ 


と 設定 し て お く こ と に より , 8087/80287 コ ・ プ ロ セ ッ サ が あっ て も ,。 それ を 使わ な い 
よう に 指示 する こ サン ます 、 
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メモ リ 操 作 


生 メモ リ 


異な る セグ メン ト 間 で デー タ 転 送 を する プロ シー ジャ Movedata (Sseg, Soff , 
Dseg, Doff, n) を 作り ます . 










Sseg ・ Soff 
2)n パ イト 


Dseg : Doff 





次 の プロ グラ ム は , テキ スト VRAM( メ モリ &HA0000 以 後 ) の 内 容 を バッ ファ 
buf%( ) に 取得 し , 1 度 画面 を 消し , キー 入力 に より 再び buf%( ) の デー タ を テキ 
スト VRAM に 転送 する も の で す . 


ーーー-/ キ メモ リ 転 送 */--- 
DFCLARE SUB Movedata (Sseg!, Soff!. Dseg!, Doff!. ni!) 
DIM buf%(80 * 25) 


Movedata &HA000. 0, VARSEG(buf%(0)), VARPTR(buf%(0)). 80*25#*2 


CLS 
PRINT “Hit Any Key ! 
Pausc$ = INPUT$(1) 


Movedata VARSEG(buf%(0)), VARPTR(buf%(0)), &HA000. 0.80*#25#*2 


mh mi IE mm -mmmr mim EE 昌 : 間 ims 導 cm mm im EE = im mm himmr "生計 !E5iEmm imim mm 本 HE mm mm im 


 * メモ リ ・ デ ー タ の ムー ブ * 


am mm 還 詳 還 暫 H = = 


SUB Movedata (Sseg, Soff, Dseg, Doff, nh) 
FOR k = 1 TO 
DEF SEG = Sseg 
a = PEEK(Soff) 
DEF SEG = Dseg 
POKE Doff, a 
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Soff = Soff + 1 
Doff = Doff + ] 
NEXT k 
END SU 


メモ リ 折 送 (BABID 中 を 旬 め 


PEEK, POKE を 用 いた メモ リ 転 送 は 遅い の で , 機械 語 で 作り まし た . 





に ー ド を 格納 し た 配列 


AsmCode( ) 
P=WRPTR( AsmCode(1)) push bp 
DEF SEG= テ WRSEG( Asm Code(1)) mov bp。 sp 
CALL absolute( ,, , ,, D/ 
push ds 
機械 語 ル ー ァ ー ゴ イー 
に 渡す 引数 
機械 語 コ ー ド 
が 格納 され て いる 
reff 10 


オフ セッ ト ア ドレ ス 





AsmCode( ) と いう 配列 に メモ リ 転 送 を 行う 機械 語 コ ー ド を デー タ と し て 格納 し て 
お き , CALL absolute( ) に より 制御 を 渡し ます . 


CALL absolute(BYVAL Sseg, BYVAL Soff,。 BYVAL Dseg。 
BYVAL Doff。 BYVAL n, p) 
「ー 値 渡し の 指定 
と いう 呼び 出し で 引数 は スタ ッ ク 上 に 次 の よう に 積ま れ ま す . p の 値 は スタ ッ ク に は 
積ま れ ま せん . 


呼び 出さ れ た 一 
側 で push bp 
で 積む 
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40 


* 


高速 メモ リ 転 送 * 


ーー ニー ーー 一 一 ーー ーー ーー ーー ーー ーー リョー ボツ ーー ーー 


DEFINI A-Z 


DIM AsmCode(1 TO 15) 


DIM Bplane(&ll4000) 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAIA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BSeg 
BOff 
S126 


&h55 

&h8b, &hec 

&hle 

&h06 
&h8e,&h5e, &h0e 
&h8b, &h76,.&hOc 
&h8e.&h46,&h0a 
&h8b. &h7e,&h08 
&h8b.&h4e,&h06 
&hfc 

&ha4 

&he2,.&hfd 

&h07 

&hlf 

&h5d 

&hca, &h0a,&h00 


四 


VARSEG(Bplane(1) ) 
VARPTR(Bplane(1) ) 
= &H7FFF 


D = VARPTR(AsmCode(1) ) 


” Machine Code 
Blue Plane Vram buffer 


メモ リ 転 送 を 行う 機械 語 プ ログ ラム 


_ push 
、 OV 
~ push 
push 
- 硬 OV 
- 硬 OV 
・ 箇 OV 
” OV 
・ 大 OV 
・ 。 cld 
: abc 


loop 


: POP 
_ POP 
” POP 
retf 


bp 

bp, SD 

ds 

eS 

ds, [bp+14] ーー SSseg 
si, [bp+12] ーー Soff 
es, 【bp+10] ーー- Dseg 
d, [bp+8] ニーー Doff 
cX, [bp+6] ニキ ーー n 


WOVSb 
abc 
eS 

ds 

bp 

10 


ーーーーー SSeg : Soff > Dseg : Doff へ 
n バイ ト の デー タ 転 送 


_ 機械 語 コ ー ド の 格納 


DEF SEG = VARSEG(AsmCode(1)) 
FOR k = 0 TO 29 

READ d 

POKE p+k, d 


NEAT 


kK 


SCREEN 0: LS 


FOR X 


NEAT 


= 100 TO 300 STEP 10 
CIRCLE (。 x), 100 


上 


GOSUB VramSave 


PRINT Hit Any Key !" 
pause$ = INPUT$(1) 


CLS 


GOSUB VramLoad 


END 


VraWSaVve: 
DEF SEG = 


DEF SEG 
RETURN 


VramLoad: 
DEF SEG = 





グラ フィ ッ ク 画 面 に 円 を 描く 


グラ フィ ッ ク 画 面 の セー プ ブ 
VARSEG(AsmCode(1 ) ) 
CALL absolute(BYVAL &HA800, 


BYVAL &H0,. BYYVAL BSeg, BYVAL BOff, BYVAL Size, p) 


グラ フィ ッ ク 画 面 の ロー ド 
VARSEG(AsmCode(1) ) 
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CALL absolute(BYVAL BSeg, BYVAL BOff, BYVAL &HA800. BYVAL &HO. BYVAL Size. p) 










DEF SEG 
RETIURN 
&HA68000 
配列 VramSave 
Bplane( ) Blue ノ プレーン 
VramLoad 

&HB0000 

| &HB8000 


Green プレ ー ン 





Quick BASIC の デフ ォ ル ト の スタ ッ ク ・ サ イズ は 1KB 程度 で す . スタ ッ ク は , プ 
ロ シ ー ジ ャ で 使う 一 般 変 数 。、 プ ロ シ ー ジ ャ の コー ル 時 の リタ ー ン ・ ア ドレ ス な ど に 使 
われ ます * 

再帰 呼び 出し を 行う 場合 は プロ シー ジャ ・ コ ー ル の ネス ト が 深く な る た め ,。 スタ 
ッ ク を か な り 消 費 し て いき ます . 

スタ ッ ク ・ サ イズ が た くさ ん 必要 な 場合 は , CLEAR 文 で その サイ ズ を 指定 し ま 
す 

次 の プロ グラ ム は , 再帰 呼出 し に より スタ ッ ク ・ サ イズ が 減っ て いく よう す を 示 
し た も の で す 、 





「” ---/* スタ ッ ク ・ サ イズ *#/--- 


1 
DECLARE SUB Abc () 
し LS ーーーー ニ ーー グッ クサ イズ 
CLEAR , , 10000 
リ 
Abc "再帰 手続 き の 呼 び 出 し 
SUB Abc 
STATIC NUW 


stack = FRE(-2) 
IF stack > 0 THEN 
Num = Num † 1 
PRINT Num, stack ーー | | 
Abc _ 持 帰 呼び 出し | 
FND IF スタ ッ ク ・ サ イズ 
FND SUB の 残り バイ ト 数 


4/ 








ビット 操作 


シフ ト , ロー テイ ト な どの ビッ ト 操 作 を 行う 関数 を 作り まし た . 操作 する ビッ ト テ 
ー タ は 16 ビ ッ ト 長 と し ます . 各 関 数 で は , ビッ ト 操 作 に より オー バー フロ ー が 生じ な 
いよ うに , デー タ を 倍 長 整数 に し て 計算 し ます . 





田 左 シフ ト (LShift) 


Llilililololololililolololololi| 


Lshift (&HF0C1, 2) 





空い た 右 に は 0 が 入る 





男 石 シフ ト (HsShift) 









Rshift (&HF0C1, 2) 


lOlolililililololololililololol9 
に 


空い た 左 に は 0 が 入る 





還 左 ロー テイ ト  (Lrotate) 


HIlilllol9olololililololololoi| 

ー | ー - )Lshift((&HFOC1, 2) 

Rshift(&HF0C 1 ,14 ) hhilololelolililelololololilolol 
om) slslslslslelelel ele 


LTLTO101010H1111019101OiOl1l1li 


PP ド も し た ビッ トド ト が 人 る 
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画 右 ロー テイ ト (Hrotate) 
hlilililololololililolo]9]9 |9 [| 


Rshift(&HFOC1, 2)( 。 
010|1|1 110|0|0|0|1|1|0|0|010| )Lshift(&HFOC1, 14) 
OoR | [OlI|010|01919|9191919|0|9|9|9|9 


OHHIHIHITLT0190191011110191910| 











*ーー ャ ーー デビ 


ロー デイ 下 し た ヒット が 人 る 





時 ビッ トバ ター ン の 取得 (BitPattern 中 ) 
各 ビ ッ ト の ' 1 ' ま だ は ' 0 を 文字 列 に し て 返す 関数 で す . 


ーー-/* ビッ ト 操 作 */--- 


DECLARE FUNCTION BitPattern$ (a&) 
DECLARE FUNCTION Rrotate& (a&, n!) 
DECLARE FUNCTION Lrotate& (a&, n!) 
DECLARE FUNCTION Lshift& (a&, n!) 
DECLARE FUNCTION Rshift& (a&, n!) 


CL5 
PRINT "Bit Shift" 
FOR k = 0 TO 7 
PRINT BitPattern$(Rshift(&HI007, k) ) 
NEXT k 


PRINT : PRINT Bit Rotate 
FORk =01O7 

PRINT BitPattern$(Rrotate(&H1007, k)) 
NEXT K 


ーー ーー = ニー ーー ーー ーー ーー ィ ー ーー ーー ーー ーーーーー ーーーーーー 六 ば ラ デラ 了 ッ る ー お ーッ レー 


「" ま ビット パタ ー ン の 取得 * 


FUNCTION BitPattern$ (a&) 
b$ = 
FOR k = 15 TO 0 STEP -] 
b$ = b$ + STR$(Rshift&(a&, k) AND &IH1&) 
NEXI k 
BitPattern$ = b$ 
END FUNCTION 


ーー ーー バビ ーー ラー ラ ーーー ジ グ ぽ ララ 


FUNCTION Lrotate& (a&, n) 
Lrotate& = Lshift(a&, n) OR Rshift(a&, 16 - n) 
END FUNCTION 
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50 


ーー ーー ーー ーー ーー ビデ ーー 


> 守 。 計 8 ま 。 時 まき > 月 。 > | 


FUNCTION Lshift& (a&, n) 
b& = a& AND &IFFFF& [ 
FORk = 1 TOn 





上 位 2 バイ ト の マス ク 





b& = (b& * 2) AND &HFFFF& ーー 2 倍 す る こと で | ビッ ト 左 に シフ ト 
NEXT k し 
Lshift& = b& 


END FUNCTION 


昌 間 。 5 還 遇 間 間 55 反証 


FUNCTION Rrotate& (a&. hn) 
Rrotate& = Rshift(a&, n) OR Lshift(a&, 
END FUNCTION 


FUNCTION Rshift& (a&. n) 
b& = a& AND &HFFFF& 
FORKk = 1 TOn 

b& = b& 『Y 2 
NEATk 
Rshift& = b& AND &HFFFF& 
END FUNCTION 


Bit Shift 
0 0 0 1 


< ご 性 性 己 選 ビ 
こつ 己 ご ジテ ご 
< で つつ 性 己 ー 己 
< つつ 己 己 ー 性 性 喧 
ーー ーー ーー。 
< ーー 己 己 どら G 必 
一 一 一 一 一 ルー 一 。 
< っ どど 己 ご ご 
< で 性 性 己 己 ビー ビー 
己 星 己 己 ビー ビー 


0 
0 
0 
0 
0 
0 
0 
0 


Bit Rotate 
0 0 1 0 


一 ら 選 ニー 
|- と た らら っ らら ー ら らら 
| らら ーー らら 
つど らら ーー ら ら 
| らら どー ご らら つら らら 
らら らら 
つら らら G 己 G 
つ G ら 選 選 c 選 
つら らら らら らら ー 
つら どら Go 己 ーー 











16 - hn) 


上 位 2 バイ ト の マス ク 


2 で 割る こと で 1| ピット に シフ ト 
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ブロ セス 制御 


ゲロ セス と いう 概 條 人,、 UNIX の よう な マル チタ スク の 05 上 で の も の で , MS- 
DOS の よう な シン グル ・ タ スク の 0S で は 。 厳 党 な 間 味 で の プロ セス は あり ませ ん . 
し か し ,。 ここ で は メモ リ 中 に ロー ド さ れ て 実行 きれ て いる プロ グラ ム の こと を プロ セ 
ス と 呼ぶ こと に し ます . 

現在 実行 きれ て いる プロ セス か ら , 別 の プロ グラ ム を ロー ド し て 実行 する こと が で 
きま すこ の と き 呼 び 出 し た プロ セス を 親 プ ロ セ ス ,。 呼び 出さ れ た プロ セス を 子 プ ロ 
セス と 呼び ます . 子 プ ロ セ モス か らら さらに 子 プ ロ セ ス を 起動 する こと も で きま す . 





子 ブ ロ セ ス の 起動 は , SHELL に より 行い ます . 
コマ ンド ・ ラ イン か ら 。 あ る プロ グラ ム を 実行 し た と き の 親 プロ セス は , MS-DOS 
(COMMAND.COM) に な り ま す . 


プロ セス の 開始 







MS-DOS 
(COMMAND. COM) 


子 プ ブロ セス の 起動 






っ 1 






ブロ セス の 起動 


宏 の プロ グラ ム ( は 、 親 プロ セス か らら チチ プロ セス 1 を 、。 ゴイ プロ も も 久 ] か らら 子 プロ セス え 
2 を 起動 する も の で す . 


ーー-/* 親 プ ロ セ ス ーー- 













PRINT " 親 プ ロ セ ス で す " 
SIELL child1" ーーー 
PRINT ~ 子 プロ セス 1] か ら も どり まし た - 
PRINT ~ 何 か キー を 押し て くだ さい 

Pause$ = INPUT$(1 ) 





child 1 


ーーー-/* キ プロ セス 1 キ */--- 







PEINT TABR(4): す オブ プロセ ス 1 で すず " 

SHELL "child2~ ーー ーー 

PRINT TAB(4): " 子 プ ロ セ ス 2 か ら も どり まし た " 
PRINT TAB(4) : ~ 何 か キー を 押し て くだ さい " 
Pause$ = INPUT$(1) 









=--/* 子 プ ブ プロセス 2 ーー- 


] child 2 





PRINT TAB(8): " 子 ブ ロ セ ス 2 で す * 
Pause$ = INPUT$(1) 


た 人 。、 デ ロキ セス と し て 起動 ずる ブロ グラ ム 財 。 ロ コロン パイ ル ノ プリ シック タク し て EXE ティ 
イル に し て お か を けれ ば な り ま せん 。 


マク ロア セン ブラ 開発 支援 ツー ル 


プロ セス の 起動 を 利用 すれ ば , メイ ン ・ プ ログ ラム か ら エ ディ タ を 呼ん だ どり , アセ 
ンプ ラフ や リン カ を 呼び 測 す こと が で きま す 。 そ そこで, 次 の よう な マク ロア セン デラ 開 
発 支援 ツー ル を 作成 し ます . 


A>process abc 


た など と 科 動 ずる こと に より 。 agbc_aem の デイ ィ イット 。 アセ シン プル / リ シク 。 お よ が 
abc.exe の 実行 。 デ バッ グ と いう 5 つの 仕事 を メニ ュー 選択 で 行う こと が で きま す . 
し た が っ て , アセ ンプ ブル で エラ ー が 生じ れ ば , すぐ に エディ タ を 起動 し て 修正 し , 再 
び ア セン ブル する と いう こと が 簡単 に 行え を る よう に な り ま す . 

この プロ グラ ム で 重要 な こと は ,。 エディ クタ や アセ ンプ ラ を 自前 で 作ら ず , 財 存 の も 
の を SHELL で 呼び 出し て 利用 し て いる こと で す . 


の 2 
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この ブロ グラ ム を , QB 統合 環境 か ら 実 行 す る と , メモ リ ・ オ ー バ ー と な り ま す の 
で .。 コマ ンド ・ ラ イン が か が ら 実 行 し て くだ きい . 


誠人 IIIIEEIIEEEEE 


* マク ロア セン ブラ 開発 支援 ツー ル # 


ーー ーー ーー ーー ヨー ニー ッッ りー ぉ ーーー レー ラ ーーー ーー ーー ーー ーー ビー 


| ド COMMAND$ = "| THEN 
Name$ = NONAME" 


ELSE 
Name$ = COMMANDS 

END IF 

DO 
PRINI 
PRINT "ーー---ーーーーーーーーーーーーーーーー eee e 
PRINT 「! 1: edit 『 ' 
PRINT 2: assemble/]ink 1" 
PRINT | 3: eXecute 画 
PRINT 1 4: debug 1 ・ 
PRINT 「! 5: exit 1・ 
人 ド 
PRINT 


INPUT "メニ ュー 番号 を 人 力 し て くだ さい --> “: Num 


SELECT CASE Num 
CASK 1 
SHELL "qb ~ + Name$ + “.ASMT 
CASE 2 
SHELL masm 。 + Name ふ +  。 + Name$ + 「:- 
SHELL Iink  " + Name$ + "| 二 Namec$5 + “:" 
CASE 3 
SHELL Name$ 
CASE 4 
SHELL debug + Name$ + “.EXE" 
CASE 5 
INPUT “処理 を 終わ り ま すか  (Y/N) ": a$ 
END SELECT 
LO00P WIILE UCASE$(a$) <> “Y" 





・ aSSeWble/link 


・ debug 
・ eXit 


| ] | 
| 2 | 
| 3: eXCCUte | 
| 4 | 
| 5 | 


り は 3 


回 國 


メニ ュー 番号 を 人 力 し て くだ さい --> ?.1 


F/77( ル 。 E/ 編 集 V/ 表 示 S/ 検 索 R/ 実 行 D/77n?7 C/ 関 数 。 H/AM7 (f・1) 
SECREAD.ASM 


IKE 


.MODEL MEDIUM 
.C0DE 

Dublic secread 
SeCrTe8&d DrTOC 


push bp 
央 OV bp, SD 
mOV dx, [bp+6] : セク グ クタ 番号 
WOV CX, 1 ・ リー ド セ ク タ 数 
WOV aX, [bp+8] ・ ドラ イプ 番号 
mmOy bx, [bp+10] ・ リー ド ・ パ バッ ファ 番地 
jnt 25h 
popf ・ POP 『 lag 
30114IIIEUITIIEIIIIETUHITIIIIHOIWIHIIIEIIIIIIIIIUIIEOIOIIIIIIIUIIIIEIIHIHIITIHHIHH 肝 1 
「 7 イル ルト モー ト 
メル イッ 7" ロ 27 う A: SECREAD.ASM 動作 状況 : 実 合 され て いま せん 00001:001 
! 1: edit [ 
| 2: asscmble/]link 
| 3: eXeGCute 1 
| 4: debug i 
! 5: eXlit | 


“TI IO 友 VI 上 ぴ 双 明 馬上 本 II 


メニ ュー 番号 を 人 力 し て くだ さい --> 2 2 
Microso「t (R) Macro Assembler Version 5.10 
Copyright (C) Microsoft Corp 1981, 1988. All rights reserved. 





49494 + 257799 Bytes symbol space free 


0 Warning ErrOrs 


0 Severe Errors ーー アセ シン プル 
/ り ンタ 
Microsoft (R) Overlay Linker Version 3.65 

Copyright (C) Microsoft Corp 1983-1988. Al rights reserved. 


LINK : warning L4021: no stack segment 
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プロ グラ ム の チェ イン 


SHELTL は ほか の プロ グラ ム を 子 プ ロ セ ス と し て 超 動 し 。 
親 プ ロ セ ス に 戻り ます . 

これ に 対し , CHAIN は ほか の プロ グラ ム を メモ リ に オー バレ イ ・ ロ ー ド し て 起動 
する の で , 親 プ ロ セ ス に 戻る こと は で きま せん . 

プロ グラ ム の チェ イン で は , COMMON 変数 を 介し て プロ グラ ム 間 で デー タ を 渡 
すこ と が で きま す , 

プロ グラ ム の チェ イン は ,。 .BAS レベ ル , .EXE レベ ル の 両方 で 行え を ます が ,。 2 つ 
を 混ぜ て チェ イン する こと は で きま せん 。 





子 プ ブロ セス の 終了 に より 


COMMON 変数 





ABC. BAS 





CHAIN "ABC 





次 の プロ グラ ム は , メイ ン ・ プ ログ ラム で デー タ を 配列 x( ) に リー ド し , log の 計 
算 , sqrt の 計算 を それ ぞ れ 別 ブ ログ ラム に し て お き , 選択 に より この どちら か の プ 
ログ ラム に チュ イシ する も の で す . 


欠 calc.bi 


ーー-ー-/* を Common 変数 #/--- 


DIM x(100) 
COMMON x(), Num 





うら っ 


免 メ イン プ ブログ ラム 





---/* キ ブロ グラ ム の チェ イン #/--- 
「$INCLUDE: calc.bi 


Num = 0 
DO 
Num = Num + ] 
READ x(Num) 
LOOP WHILE x(Num) <> -999 
Num = Num - 1 
DATA 1.9.7.86 11 15. 722. 35.56.100,-999 


PRINT "Il:Log 
PRINT "2:Sqrt" 
INPUT "どの 計算 を し ます か ~: [ 
SELECT CASE f 
CASE 1 
CHAIN log 
CASE 2 
CHAIN sqrt 
END SELECT 


「$INCLUDE: calc.bi 


FOR k = 1 TO Num 
PRINT LogC: x(k): 「) = [LOG(x(k) ) 
NEXI k 





人 き sqrt.bas 


"$INCLUDE: calc.bi 


FOR k = 1 TO0 Num 


PRINT "Sqrt(": x(k): 「) =": SQR(x(k) ) 
NEXT k 


|: LOE 

" 条 導 YY 明 

どの 計算 を し ます か ? 2 

SGf も ( ま も 】 き 】 

Sqrt( 5 ) 2.2365068 

Sqrt( ) 2.645751 
) 2.828427 


SQft( 
Sqrt( .3156525 
Sqrt( .872983 
Sqrt( : .690416 
Sqrt( .91608 
Sqrt( .483315 
Sqrt( 100 ) = 10 





っ 6 
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ー⑩ トド フ ッ ピ ン ツ 


トラ ッ ピ ング を 使え ば , エラ ー 処 理 , イベ ント 発生 時 の 処理 が 簡単 に 行え ます . 
Quick BASIC で サボ ポー ト す る トラ ッ ピ ング は 以下 の も の で す . 





ON ERROR GOTO ラード ラッ ピ シ グ 

ON KEY(n) GOSUB キー・ ト ラッ ピン グ 

ON TIMER(n) GOSUB タイ マー・ ト ラッ ピン グ イペ パシ ント * ト ドラ ッ ピ シング 
ON COM(n) GOSUB 通信 ポー ト ・ ト ラッ ピン グ 





ファ イル 処理 の た め の エ ラー・ ハ ンド ラ 


(Quick BASIC で ファ イル 処理 を 行っ て いる と き , な ん ら か の エラ ー が 発生 する と 
ラジ シタ イム * エラ ー で プロ グ プ ム が 申 目 きれ て し まい ます 。 

そこ で ファ イル 処理 時 に 起こ り そ う な エラ ー の エラ ー・ ハ ンド ラ を 作り , 各 エ ラー 
に 対し , ユー ザ が 適切 な 対処 を 行え る よう に し まし た . 





ーー ーー = ニー ーー ーー ーー ーー ーー 一 一 ーー ニー リー ーーーー ーー デビ ツィ ョ ーー ピ ツレ a ョ ピー 


ーー 


ON ERROR GOTO Errorllandler ーーーーーーーーーーー エ ラー・ ハ ンド ラ の 入口 の 設定 





INPUT “転送 元 フ ァイル 名 ": Filel$ 
INPUT “転送 先 フ ァイル 名 ": File2$ 


100 OPEN Filel$ FOR BINARY AS 骨 
200 OPEN File2$3 FOR BINARY AS #2 
DO WHILE NOT EOF(1) ~ デア イル ・ コ ピー 
a$ = INPUT$(512. #1) 
PUT #2, , a3$ 
LO00P 
CLOSE #, #2 
END 


Errorlandler: 

ErrorNum = ERR - エラー 番号 

ErrorLine = ERL "エラ ー の 起き た 行 

SELECT CASE ErrorNum 

CASE 53 

PRINT “ファ イル が 見 つか り ま せん " 
GOSUB Filename 
RESUME 


9/ 


つ O 


CASE 61 
CLOSP #1, #2 
PRINT "ディ スク が 一 杯 で す ~ 
PRINT ~ 他 の ディ スク に 変え て くだ さい " 
PRINT “準備 が で きた ら キ ー を 押し て 下さ い "^ 
Pause$ = INPUT$(1) 
RESUME 100 

CASE 67 
PRINT "ディ レク トリ ・ エ ント リ が 一 杯 で す ^ 
PRINT " 他 の ディ スク に 変え て 下さ い ^ 
PRINT “準備 が で きた ら キ ー を 押し て 下さ い " 
Pause$ = INPUT$(1) 
RESUME 

CASE 71 
PRINT "ディ スク が 準備 され て いま せん " 
PRINT “準備 が で きた ら キ ー を 押し て 下さ い ^ 
Pause$ = INPUT$(1) 
RESUME 

CASE 76 
PRINT ~ パ ス 名 が 見 つか り ま せん "^ 
GO0SUB Filename 
RESUME 

END SELECT 
RESUME NEXT 


Filenname: ”。 ファ イル 各 の 再 入 力 
SELECT CASE ErrorLine 
CASE 100 
INPUT “転送 元 フ ァイル 名 を 持 人 力 し て くだ さい ~": Filel$ 
CASE 200 


INPUT “転送 先 フ ァイル 名 を 再 人 和信 力 し て くだ さい ~^: File2$ 
END SELECT 
RETURN 






転送 元 フ ァイル 名 ? a.bas 
転送 先 フ ァイル 名 7? b:c.bas 
ディ レク トリ ・ エ ント リ が 一 和 杯 で す 
他 の ディ スク に 変え て 下さ い 
準備 が で きた ら キ ー を 押し て 下さ い 
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タイ マー・ ト ラッ ピン グ に よる 時 刻 の 表示 


次 の プロ グラ ム は , スク リー ン の 右 隅 に 時 刻 を 1 秒 置き に 表示 する も の で す . 
また , 指定 され た 時間 に な る と ビー ブフ プ 音 を 発し , プロ グラ ム を 終了 し ます . 








UI 5 30 


Hello| ン | 





mh Pi Em Ei EE [im Em mm cmmE Em mmm mm mm mi mm chm fm mm im msi 


ー 


ON TIMER(1) GOSUB Ciock ニーーーーーーーーーーーーーーー タ イマ ー・ ト ラッ ピン グル ー チ ン の 設定 
TIMER ON 


BellTime$ = "23:11:207 PlI = 誠司 品 
CLS 
VIFW PRINT 2 10 25 
DO 間 
2$ = INKEYS$ スク リー シン シ に 文字 を 入力 し て いく 
IF 4$ の "" THEN PRINT a$: 作業 ルー チン 


LOOP WIILE a$ <> CIHR$(&H1B) 
END こ コ 





Clock: ” 時 間 表 示 ル ー チ ン 
x = POS(0): y = CSRLIN "カー ソル 位置 の 取得 
VIEW PRINT 
LOCATE 1, 70 
PRINT TIME$ 
VIEW PRINT 2 T0 25 
LOCATE y, x "カー ソル 位置 の 復帰 
IF BellTime$ = TIME$ THEN 
BEEP: BEEP: BEEP 
PRINT "設定 し た 時 間 に な り ま し た " 
END 
END IF 
RETURN 


か / 








ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 一 形 
キー・ ト ラッ ピン グ を 利用 し た ポッ プア ッ プ 画面 表示 


次 の プロ グラ ム は , [F・1| キ ー が 押さ れる と , 今 ま で の 画面 デー タ を 保存 し て , ボ 
ッ プ アッ プ 画 面 を 表示 し , 何 か キ ー を 押す と , 再び 前 の 画面 デー タ を 表示 する も の で 
す . 


Hello| ソノ | 


ABC 


Now 『・]1 key Trap 
Hit ル Any Key ! 





DEFINT A-Z 
DIM AsmCode(1 TO 15) 
DIM buf(80 * 25) 


。 Machine Code 
TextVram buffer 


メモ リ 転 送 を 行う 機械 話 プ ログ ラム 


DATA &h55 ・ 。 Push bp 

DATA &h8b, &hec ・ 。 前 OV bp, sp 
DATA &hle ・ Push ds 

DATA &h06 : 。 PUSh es 

DATA &R8e,&h5e,.&h0e ・ ” mWOV ds, [bp+]4] 
DATA &h8b.&h76.&hOc ・ ” OV si, [bp+12] 
DATA &h8e,&h46,&h0a ・ 大 OV es, [bp+10] 
DATA &h8b, &h7e,&h08 ・ 。 析 OV di, [bp+8] 
DATA &h8b,&h4e, &h06 : 。 各 OV CX,Ibp+5] 
DATA &hfc : 公 還 

DATA &ha4 abc movsb 
DATA &he2.&hfd loop abc 

DATA &h07 ・ POD 6S 

DATA &h1f : POD ds 

DATA &h5d : 。 POD bp 

DATA &hca,&h0a,&h00 ・ 。 retf 10 

BSeg = VARSEG(buf (1) ) 

BOTff = VARPTR(buf (1) ) 

SiZe = 80*# 25* 2 


D = VARPTR(AsmCode(1) ) 
DEF SEG = VARSEG(AsmCode(1) ) 
FORk = 0 [IO 29 
READ d 
POKEp+k, d 
NEXAT k 


_ 機械 語 コ ー ド の 格納 
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ON KEY(1) GOSUB KeyTrap 
KEY(1) ON 


a2$ = INKEY$ 
IF a$ < THEN PRINT a$: 


L00P WIILE a$ <> CHRS(&II1B) 


KeyTraD: キー・ ト ラッ プ ・ ル ー チ ン 


GOSUB VramSave 
x = POS(0): 7 = CSRLIN 


CLS 

PRINT "======= ニ = ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニー 
PRINT Now 『・| key Trap 匿 
PRINT Aa Hit Any Key ! 1 
PR INT ====== ニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニテ" 


Pause$ = INPUT$(1 ) 
GOSUB WVramload 
LOCATE Y, x 


RETUKRN 


VramSave: "テキ スト 画面 の セー プ ブ 


DEF SEG = VARSEG(AsmCode(1) ) 
CALL absolute(BYVAL &HA000, BYVAL &HO, BYVAL BSeg, BYVAL BOff, BYVAL Size, p) 
DEF SEG 


RETURN 
VramLoad: "テキ スト 画面 の ロー ド 


DEF SEG = VARSEG(AsmCode(1)) 
CALL absolute(BYVAL BSeg, BYVAL BOff, BYVAL &HA000, BYVAL &HO, BYVAL Size, p) 
DEF SEG 


RETURN 


メモ リ 転 送 を 行う 機械 語 プ ログ ラム に つい て は , 本 章 1-5 の 2 を 参照 し て くだ さ 
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シリ アル ポー ト 
(RS-3PC) と の 交信 


Uick BABIC に お ける シリ アル ポー ト 入 出力 の 概要 


OPEN "COMn :・" 文 に より ジ シ り アル ポー ト を オー プン すれ ば 。 ファ イル 入出 力 文 
を 使っ て シリ アル ボー ト (RS-232C) と の 交信 を 行う こと が で きま す . 

(QB シス チム の 中 に 、 TRS 92 し の た め の デ バイ スズ ス ・ ド ラテ ライ パ が 入っ て いあ る ので, 
QB シス テム を 起動 し て お け ば , 特別 な こと (MS-DOS 用 RS-232C デバ イス ・ ド ライ 
バ の 組み 込み SPEED コマ ンド の 実行 な と ) を する 必要 は な く , 次 の よう に 
OPEN "COMn :” 文 を 実行 すれ ば , シリ アル ボ ポート が 使用 で きる よう に な り ま す . 








ポート 
(|,2) ボーレート アス キー モー ド と バイ ナリ モー ド 
+ ィ バリ ティ (NE.O) ASC 
納 PPCYNMIINMINEWMSP 
デー タ 一 ストップ ピッ ト (マニ ュ ア ル 参 照 ) 
ファ イル 番号 ビッ ト 長 (12) 


ジー (5,.6,7.8) 
OUTPUT.RANDOM) フイ アイ イス 


ASC と BIN の 違い は , 以下 の と お り で す . 


展 


| CTRL+2 ーー ーー EOF と し て 処理 | EOF と し て 処理 し な い 
| クロ ー ズ 処理 に より | CTRL+Z を 送る を 人 
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バ パソ コン B 







RS-Z3Z し 


OPEN "COM 1 : 9600.。 N,。 8, 1, ASC" OPEN "COM 1 : 9600. N 8。 1. ASC" 
FOR OUTPUT AS せ 1 ' FOR INPUT AS せ 1 
PRINT 半 1. a$ b$ 三 INPUT$ (1, 半 1) 


上 の 例 は パソ コン A つ パソ コン B に 1 文字 単位 で シリ アル ポー ト を 通し て デー タ 


を 送る も の で す . 
シリ アル ボ ポート か ら デ ー タ を リー ド す る ステ ー ト メン ト として, INPUT# LINE 


INPUT #, INPUT$, INPUT GET # が あり , 次 の よう な 使い 分 け を し ます . 


INPUT # | |/| コ ー ド が くる まで 待つ . 

LINE INPUT# INPUHT# で ほほ カン マ を デー タダ と し て 読 算 こと は で き 候 いい 、 
INPUT$ スト リー ム 入 力 で , |/ ン | コー ド が くる こない に か か わら ず 入 
INPUT\ | 力 を 行う . すべ て の 文字 を 読む こと が で きる ゐる. 

GET# レコ ー ド ・ デ ー タ を 読む 、. 


OPEN "COMn :"『 に より シリ アル ボー ト が オー プン され る と 。 これ 用 に バッ ファ が 
確保 され ます . デフ ォ ル ト の バッ ファ ・ サ イズ は , 512 バ イト で す が , OPEN 
3COMn/ 太 に LEN =nhytes オプ ショ ン を 醒 定 する こと で 。 パッ ファ サイ ダグ を 
nbytes に 設定 で きま す . 

オー プン され た シリ アル ポー ト に 対し , EOF, LOC, LOF 関数 を 使用 し た 場合 , 
返さ れる 値 は ファ イル の 場合 と 異な り , 次 の よう な も の で す . 


EOF 入力 バッ ファ か ら 読 み と る べき 文 字 が ある か な いか 


LOC 入力 パッ ファ に だ まっ て いる デー クタ の 文学 数 
LOF 入力 バッ ファ の 残り スペ ー ス の 量 


6J 


テキ スト ・ フ ァイル の 交信 


次 の プロ グラ ム は , パソ コン A 側 か ら テ キス ト ・ フ ァイル を 1 文字 単位 で パソ コン 
B に 送る も の で す 。 っ パソ コン 選 側 で は 送ら れ て きた デー タ を スク リー ン に 表 未 する 
と 同時 に 。 テ キス ト ・ フ ァイル と し て 書き 出し ます . 





の シリ アル ボ ポート の デー タ を リー ド 





ーー--/* テキ スト ・ フ ァイル の com か ら の リー ド #*/--- 
OPEN “COM1:9600.N,8.1.ASC FOR INPUT AS 者 


INPUT "File name ": f$ 
OPEN f$ FOR OUTPUT AS #2 


a$ = INPUT ま 1。) ーーーーー シ リア ルポ ボート ド か が か ら の 人 人 カ 
DO WHILE a$ <〉 CHRS(&H1A) 
PRINT a$: し 。. EOF の 章 定 
PRINT #2, a$: 
IF a$ = CHR$(&HD) THEN PRINT #2, CHRS(&HA) : CR コー ド の と き は LF 
2$ = INPUT$(1, #) コー ド を さら に 書き 出す 
L00P 
CLOSE # 
CLOSE #2 


の シリ アル ポー トド に デー ググ を ライ ト 
、---/* テキ スト ・ フ ァイル の com へ の ライ ト */--- 


OPEN "COML:9600.N,8.1.ASC FOR OUTPUT AS 寺 


INPUT "File name ~: f$ ーー 
ゃ | 間 二 = ^ ーー 
OPEN f$ FOR INPUT AS 2 | フフ アル ボー ト に 送る テキ スト ・ 
ファ イル の オー プン 


DO WHILE NOT EOF(2) 
a$ = INPUT$(1. #2) 


PRINT #1, a$: ーーー シ リア ルポ ー ト へ の 出力 
LOOP 
CLOSE ーー 7Z(EOF) の 送出 
CLOSE #2 
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3| バイ ナリ ・ フ ァイル の 交信 


バイ ナリ ・ フ ァイル を 転送 する 場合 , すべ て の デー タ が デー タ と し て の 意味 を 持つ 
の で 。 デー クタ の わ り を 示す コー ド を 設定 する こと は で きま せん , 

そこ で , 転送 する バイ ナリ ・ フ ァイル の ファ イル ・ サ イズ を まず デー タ と し て 送り , 
受信 側 で は その サイ ズ だ け , シリ アル ポー ト か ら デ ー タ を 読む せよ うに し まし た . 








@⑱ シ リア ルポ ボ ポート の デー タ を リー ド 





ーー ニー--/* を バイ ナリ ・ フ ァイル の com か ら の リー ド */--- 


OPEN “COMI:9600.N.8.1.BIN FOR INPUT AS #1 


INPUT ~File name ": f$ 『 書き 出す ファ イル 


OPEN f$ FOR BINARY AS #2 


INPUT #1. N$ ” ファ イル ・ サ イズ 
FOR k& = 1 TO VAL(N$) 
a$ = INPUT$(1. #1 ) 
PUT #2。、 、 a$ 
NEXT k& 
CLOSE #] 
CLOSE #2 


@⑱⑧ シ リア ルポ ボ ポ ボート に デー タ を ライ ト 
ーー ニー-/* キ バイ ナリ ・ フ ァイル の c om へ の ライ ト */--- 
OPEN “COMI:9600.N.8.1.BIN" FOR OUTPUT AS #l 


有 ラード 
INPUT "File name ": IM 
OPEN TS FOR BINARY AS #2 転送 する ファ イル 


N& = LOF(2) 


) D 、 村 ファ イル ・ サ イズ を 送る . ファ イル ・ 
ーー ] ーー サイ ズ は 倍 長 整数 で 扱う . 

a$ = INPUT$(1, #2) 

FRINT ま |。 a$: 
NEXT K& 


CLOSE #] 
CLOSE #2 
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4| COM トラ ッ ピ ング 


パソ コン A 側 の 画面 で 仕事 を し て いる と き に シリ アル ボー ト に メッ セー ジ を 受信 
し た 場合 ,、 プ リン タ に それ を 印字 する プロ グラ ム を 作り ます . 


下 
中 


画面 上 で 


仕事 を し て いる 
RS-232 C 





=--/* COm ト ラッ ピン グ #/--- 
OPEN COMI:9600,.N.8.1.ASC FOR INPUT AS 衣 


ON COM(1) GOSUB ComTrap ニーーーー = トラ ッ プ ・ ル ー チ ン の 設定 
COM(1) ON 





DO 

b$ = INKEYS 

IF b$ < THEN PRINT b$: 
LOOP WIILE b$ <> CIHRS(&H1B) 
END 





画面 に 文字 を 表示 し て いく 





ComTraD: 
COM(I) OFF 
3 エー =ーーー シ リア ルポ ー ト の デー タ を a$ に 取得 
DO WIILE NOT EOF(1) 
a$ = a$ + INPUT$S(LOC(1), #1) 
L00P 
LPRINT a$: ーー プリ ンタ 世 因 力 
CLOSE # 、 2 2 し 
OPEN "COM1:9600.N,8.1.ASC" FOR INPUT AS#I | " 度 シリ 7 ルポ ボー アデ ロー ネル し 1 
COM(1) ON か が かち 則 オ ー プ ン 
RETURN 





な お , メッ セー ジ の 送信 側 は 次 の よう な プロ グラ ム で デー タ を 送っ て いる も の と し 
ます . 


WHILE 1 
OPEN "COM1: 9600,。 N,8,1, ASC" FOR OUTPUT AS #1 
INPUT “data": b$ ゃ 
PRINT 前 ,。 b$ 
CLOSE 放 
WEND 
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デー タ の 送受 信 
ーー ーー ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 緒 
吾 の パソ コン 間 で 。 メッ セー ジ の 交換 を 行う も の で す 。 交互 に 送受 信 す る の で 
先 に デー タ を 送る 側 を 親 と し ます . 
プロ グラ ム を 抜け る に は 。 data ? の で て いる と き に end と いう 文字 を 入力 し ます 


---/* RS 一 23 2C に よる 送受 信 ーー 


INPUT " 親 で すか (y/n)": f$ ・ 
IF UCASE$(f$) = ~Y THEN GOSUB DataOutput 
DO 
GOSUB Datalnput 
IF UCASE$(a$) = "END THEN EXIT DO 
GOSUB DataOutput 
LO00P UNTIL UCASE$(b$) = “END~ 
PRINT “交信 を 終了 し ます ^ 
END 


Datalnput: 
OPEN "COM1:9600.N.8.1.ASC" FOR INPUT AS #1 
INPUT #1, a$ 
PRINT a$ 
CLOSE #1 
RETURN 
DataOutput: 
OPEN "COMI:9600.N,8.1.ASC" FOR OUTPUT AS #1 
INPUT "data": b$ 
PRINT #1, b$ 
CLOSE #l] 
RETURN 





赴 で すか (y/n)? n | 

これ か ら 交 信 を 開始 し ます ニー 一 受信 メッ セー ジ 
data?2 T 剛 し まし た 送信 する メッ セー ジ 
そちら の 天気 は いか が で すか | 

data? 今日 は 朝 か ら 雨 で す 

交信 を 終了 し て くだ さい 

data? end 終了 の EH 

区 信 を 終了 し ます 


| 規 で すか (①/n)?y 
data2 これ か ら 交 信 を 開始 し ます 
了解 し まし た 

dala? そちら の 天気 は いか が で すか 
今日 は 朝 か ら 雨 で す 

data27 交 全 を 終了 すし て で て 《 く だ きい 

end 


人 交信 を 終了 し ます 





















何 か キ ー を 押し て くだ さい 何 か キ ー を 押し て くだ さい 


6/ 





ーー 
) シリ アル ボー ト の ラン ダム ・ ア クセ ス 
ーー ye 
シリ アル ポー ト を RANDOM モー ド で オー プン する と , 入出 力 両用 で シリ アル ボ 
ー ト を 使う こと が で きま す . 

炊 の ブロ グラ ム は , 画面 を 2 つ に 分 割 し , 上 部 を 作業 領域 と し , ここ に 書い た メッ 
セー ジ を シリ アル ボー ト に 送り ます . また 画面 の 下部 を メッ セー ジ 領 域 と し, 受信 し 
だ データ を そこ に 表示 し ます . この 2 つの 動作 は 並行 し て 行わ れ て いま す . 


/* WOTK area #/ 
これ か ら そ ちら に デー タ を 送り ます トー 送っ た 
本 日 pm 1 : 30 よ り 弟 3 会 議 室 で 編集 会 識 を 行い ます デー タ 


了解 し まし た 





ーー---/* を シリ アル ・ ボ ポート の ラン ダム ・ ア クセ ス キ #/--- 
OPEN "COM1:9600.N,.8.1 "FOR RANDOM AS #1I LEN = 256 


(CLS 

0CATE 1。 20: FRINT ニー-- 一 / ま WO 0a も / コ ーーーー" 
LOMMTE 11. 20: TRIME 一 ーー- /* meSSaEe aTe4 キ /--ーーー~ 
X| = 1: yl = 2 

を 1 2 デー 肝 


[ I 


a$ = INKEY$ 
DO WHILE a$ <> CHR$(&HIB) 
IF a$ <> “” THEN 
VIEW PRINT 2 T0 10 
LOCATE yl, xl 
COLOR 5: PRINT a$: 
xl = POS(0): yl = CSRLIN "上 画面 の カー ソル 位置 の 保存 


PRINT 衣 , a$: ”。 シリ アル ・ ポ ー ト に デー タ を 送る 
END IF 
IF NOT EOF) THEN 、 シリ アル ・ ポ ボー トド ト に デー タ が あれ は 


b$ = INPUTY(LOC(1), #1) それ を 読む 
VIEW PRINT 12 TO 21 

LOCAIE y2. x2 

COLOR 3: PRINT b$: 


x2 = POS(0): y2 = CSRLIN ” 下 画 人 面 の カー ソル 位置 の 保存 
END IF 
a$ = INKEY$ 


L00P 
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MS-D0OS イン ター 


Cutick BASIC は MS-DOS 上 で 填 行 し て ゅ ます し た が っ て 。 より 05 レベ ル に 
近い 仕事 を し だ たり , きめ 細か な 処理 を し だ いと き は ,。 IMS-DOS シス テム ・ コ ー ル を 利 
用 する と 便利 で す . 

上 第 3 意 、。 4 童 に ディ レク トリ ・ エ ント リ の サー チ ,。 お よび ファ イル ・ ハ ンド ル に よ 
る ファ イル 処理 に 関す る MS-DOS シス テム ・ コ ー ル ・ ラ イブ ラリ を 紹介 し て あり ます 
が 。 この 草 で は , これ ら 以 外 の MS-DOS シス テム ・ コ ー ル ・ ラ イブ ラリ を 紹介 し ま 
す . 


MS-DDS シス テム ・ コ ー ル 


MS-DOS の シス テム ・ コ ー ル (ファ ンク ショ ン ・ コ ゴール ) は , レジ スタ ah に ファ ン 
グ クション ・ コ ー ド (00h 一 62h) を 入れ , 必 有 な パラ メー みみ (な いこ と も ある ) を レジ スタ 
cx、 dx など に 入れ て , ソフ トウ ェ ア 割 り 込 み の int 21h を 行い ます . これ に より , 
ファ ンク ショ ン ・ コ ー ド で 定め られ た 機能 が 実行 され ます ,。 コー ル 書 式 は 。 次 の と お 
で すし 












mov ah。 ファ ンク ショ ン ・ コ ー ド 
| 答 レ ジス タッ \ ラ メー タダ 」 
Int 21h 


int 21n に よる シス テム ・ コ ー ル を 特に ファ ンク ショ ン ・ コ ー ル と 呼び ます が , MS 
-DOS で は nt 21h-int 27h の ソフ トウ ェ ア 割 り 込 み が 予 約 さ れ て いま す . 

また MS-DOS Ver.3.1 以 後 で は 拡張 シス テム ・ コ ー ル (int 220) が 用 意 き され て い 
て . ファ ンク ショ ン ・ キ ー の 設定 。 直接 コン ソー ル 出 力 。 日 本 語 入力 機能 を 使用 で き 
ます . コー ル 書 式 は 次 の と お り で す . 


IOV GL。 ファン クジ ション ャ コー ド 
| 各 レジ スタ ーー パラメータ | 
Int 220 


これ ら の 情報 の 詳細 は , MS-DOS プロ グラ マー ズ ・ リ ファ レン ス ・ マ ニュ アル 等 を 
大 考 に し て くだ さい 、。 


/0 
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uick BASIC か ら の 利用 法 


Quick BASIC か ら MS-DOS の シス テム ・ コ ー ル を 利用 する た め の プ ブ プロシージャ と 
し て , CALL INTERKRUPT と CALL INTERRUPTX が 用 意 さ ん れ て いま す . 

これ ら の プロ シー ジャ を 介し て CPU レジ スタ と の デー タ 授 受 を 行う に は ,。QB.BI 
(イン クル ー ド ・ フ ァイル ) で 定義 され て いる レコ ー ド 型 RegType, RegTypeX を 用 
ます 





"INTERRUPT で 必要 な 構造 体 の 官 言 


TYPE Keglype 
4X AS INTEGER 
bx AS INTEGER 
CX AS INTEGER 
dx AS INTEGER 
bp AS INTEGER 
S 1 AS INTEGER 
d AS INTEGER 
flags AS INTEGER 

END TYPE 


”。 INTERUPTX で 必要 な 構造 体 の 宣言 


TYPE RegTypeX 
aX AS _ INTEGER 
bx AS INTEGER 
CX AS INTEGER 
dx AS INTEGER 
bp AS INTEGER 
Si AS INTEGER 
dj AS INIEGER 
flags AS INTEGER 
ds AS INTEGER 
CS AS INTEGER 

END TYPE 


使用 法 は 次 の よう に な り ま す . 
'$INCLUDE : "QB.BI 


DIM Inregs AS RegType 
DIM_ Outregs AS RegType 


Inregs.ax= フ ァ ン クシ ョ ン ・ コ ー ド 
Inregs .dx = パラ メー タ 
CALL INTERRUPT(&H21, Inregs, Outregs) 
Inregs は 入力 パラメータ を セッ ト す る レジ スタ ・ レ コー ド , Outregs は シス テム ・ 
コー ル か ら の リタ ー ン 情報 が セ モット され る レジ スタ ・ レ コー ド で す . 


/ ! 





MS-DOS の シス テム 。 ゴー ルル (ファ ンク ショ シン 


MS-D0S イン ター 
プ エ ー ス ・ "ライ フラ リー 


・ コ ー ル ) を 利用 し た . MS-pOS 


ンタ ター フェー ス ・ プイ プラ リ を 紹 條 し ます 


この ライ プラ リ の ソー ス ・ テ キス ト を MSDOS. 


ーー-* 一 ーー: 


BAS と し , プロ シー ジャ の 定 


(Eee 


相 


ァイル を MSDOS.H と し ます 
珍 MSDOS_H 
* ms dos イ ンタ クター フェー メラ グラ リャ こ ペ ヘッ ゥ ッ ダ まき 
UECLARE FUNCTION Getche% (c%) 
UECLARE FUDNCTION Getch% (c%) 
DECLARE FUNCTION NcGetch% (c%) 
DECLARE FUNCTION Inkey% (c%) 
DECLARE FUNCTION Keystal% () 
UECLARE FUNCTION Dskspc& (Drive!) 
DECLARE SUB Dosver (Major. Minor) 
DECLARE SUB Dskstat (Dr. SeC. Byte, Clust, Id$) 
DECLARE SUB Flskcy () 
DECLARE SUB NcPutch (c%) 
DECLARE SUB Putch (c%) 
UECLARE SUB Seldsk (Drive$) 
る MSDOS. BAS 
* ES ンー の きず イジ ター テ ュ ー ュ タゴ イフ プラ 『 リ # 
DECLARE FUNCTION Dskspc& (Drivel) 
DECLARE FUNCTION Getche% (c%) 
DECLARE FUNCTION Getch% (c%) 
UECLARE FUNCTION NcGetch% (c%) 
DECLARE FUNCTION Inkey% (c%) 
DECLARE FUNCTION Keystat% () 
DECLARE SUB Dosver (Major, Minor) 
DECLARE SUB Dskstat (Dr, Sec. Byte, Clust, 1d$) 
DECLARE SUB Flskey () 
DECLARE SUB NcPutch (c%) 
DECLARE SUB Putch (Cc%) 
DECLARE SUB Seldsk (Drive$) 
-$INCLUDE : -YbinYqb.bi' 


アジ 
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DIM SHARED Inregs AS Neglybe 

DIM SHARED Outregs AS Reglype 
DIM SHARED Inregsx AS RegTlypeA 
DIM SHARED Outregsx AS ReglypeX 


EE 


ーー ーー ーー ーーーー ーー ィ ィ ーー ィ ーー デビ デー 


SUB Dosver (Major. Minor) 
Inregs.aX = &H3000 
CALL INTERRUPT(&H21. Inregs, Outregs) 
Maior = Outregs.AaX AND &8HFF ーーーーーーー メ ジャ ーー バー ジョ ン 
Minor = INT(Outregs.ax) Y &HI00 マイ ナー・ バ パ バージョン 
END SUB 





mi lm mami im mmmm mmmr Hm mm mmmmi mimi immmm 


ーー 


FUNCTION Dskspc& (Drive) 
Inregs.aX = &H3600 
Imnregs.dx = &HFF AND Drive - 
CALL INTERRUPT(&II21. Inregs, Outregs) 
Dskspc& = CLNG(Outregs.ax) * Outregs.bx * Outregs.cX ー 一 空き サイ ズ 
END FUNCTION 


ドラ イブ 番号 








PP Paimm sm -=5ms = mm ims mm iP  「H sm ims mw imim mm 


mm mmm mer mm 


SUB Dskstal (Dr, Sec,. Byte, Clust, 1d$) 
Inregsx.ax = &IIIC00 
lregsx.dx = Dr AND &IHFF 
CALL INTERRUPTX(&H21, Inregsx. OutregSsx) 
Sec = Outregsx.ax AND &HFF 
BytcC = OutTegSX.CX 
Clust = OutregsX.dX ' | 
DEF SFG = Outregsx.ds = キーーーーーーーーーー FAT-ID が 置か れ て いる メモ リ の セグ メン ト 値 | 
ld$ = HEX$(PEEK(Outregsx.bx) AND &IFF) ニーーーーー FAT-ID の 取得 
DEF SEkG ”_ Basic default DS 

END SUB 


ニュ ュー ニニ ーー ーーー ーー ーーーー ゆ ィ ー 王 ーー リー 靖 ーー ーーーーーーーーーーーーーー シ ーッ ーー 


SUB Flskey 

Inregs.aX = @IHCO0 

CALL INTERRUPT(&H21, Inregs, Outregs) 
END SUB 


/3 


/4 


ーー ョ ーー ーー 


EE 


FUNCTION Getch% (c%) 


Inregs.axX = &H800 

CALL INTERRUPT(&H21. Inmregs. Outregs) 
c% = Outregs.axX AND &HFF 

IF c% = AA TIEN 





Getch% = -] 7 の 入力 
ELSE 

Getch% = c% 
END IF 


END FUNCTION 


の で 一 EE 


FUNCTION Getche% (c%) 
Inregs.ax = &H100 
CALL INTERRUPT(&H21. Inregs, Outre&gs) 
c% = Outregs.axX AND &HFF 
IF c% = HIA THEN 
Getche% = -] 
ELSE 
Getche% = c% 
END IF 
EN)) FUNCTION 


ーー ーー- ニー ーー = ニー ーー ーー 一 ーー ーー 一 一 ーー ーー 


ニー ーー 


FUNCTION Inkecy% (c%) 
Inregs.aX = &H600 
Inregs.dx = &IHFF 
CALL INTERRUPT(&H21, Inregs, Outregs) 
c% = Outregs.aX AND &HFF 
Inkey% = c% 
END FUNCTION 


1 


ーー ーー ーー ーー ーー 一 ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ソー ビー デン ー ィ タラ ー シ ーq| ニー ニー ビー 


FUNCTION Keystat% 
Inregs.axX = &HBO0O 
CALL INTERRUPT(&H21, Inregs. Outregs) 
Keystat% = Outregs.ax AND &HFF 

END FUNCTION 


EEE 
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ーー | 一 


ーー ーーー ョ ーー 


FUNCTION NcGetch% (c%) 


し 。 ニコ 


mmm ーーー 


END 


lnregs.axX = &HTO0 
CALL INTEFRRUPT(&H21. Inregs, Outregs) 
c% = Outregs.aX AND &HFF 
IF c% = &ILA THEN 
NcGetch% = -1 
ELSE 
NcGietch% = C% ぁ 
END IF 
FUNCTION 


ーー 


ーー ーー ニー ニーーー ニ ーーーーーー ゆ ーー 較 ーーーー リ ンー リーl]ー ッ ーー 有 ー ーーー シ ーー 


NcPucth (c%) 
Inrcgs.ax = &IH600 
InTe&gS.dX =C% 
CALL INTERRUPT(&H2L, Inregs, Outrcgs/ 
IT c% = &ID THEN 
Inregs.aX = &H600 
Inregs.dx = &HA 
CALL INTERRUPT(&21, Inregs, Outregs) 
END IF 
SUB 


ーー 


人 ぅ ei 


Putch (c%) 
Inregs.aX = KIZ200 
InrCgS.dX = C% 
CALL INTERRUPT(&H21. Inregs, OutregS) 
IF c% = &HD TIEN 
Inregs.aX = &IH200 
Inrcgs.dx = &IHA 
CALL INTERRUPT(&H21. Inregs, Outregs) 
END IF 
SU 


ーー 


ーー Pi mm PE "emm mesh mmmmr mh umeih Em msh eee mi mm 


Seldsk (Drive$) 

Inregs.ax = K&IE00 

Inregs.dx = (ASC(UCASE$(Drive$) ) - ASC(^A")) AND &HFF 
CALL INTERRUPT(&IH21. Inregs, Outregs) 

SUB 


/ コ 








で QB を 起動 し て お き ,。MSDOS.BAS を 作成 し , ラリ 作成 | で クイ 
ッ ク グラ イブ ラリ MSDOS.QLB を 作成 し ます . 
- こ の ライ ブラ リ を 利用 し て ユー ザ ・ プ ログ ラム を 作成 する に は , 次 の よう に 起動 し 


ます . 





A>QB /LMSDOS[ ン | 


ユー ザ ・ ブ ログ ラム で は , ライ ブラ リ の プロ シー ジャ の 型 宣言 を 行っ て ある 
MSDOS.H を イン クル ー ド し ます . 


@$ ユ ー ザ ・ ブ ログ ラム 
ゃ INCLUDE: MSDOS.H' 


Dosver Major。 Minor 





MS-DOS の メジ ャ ー・ バ バージョ ン 番 号 ( 整 数 部 
バー ジョ ン 番 号 (小数 部 ) を Minor に 取得 し ます . 


ajor, マイ ナー・ 





ーー-/* DOS パ バー ジョ ン の 取得 ーー- 





-$INCLUDE: msdos.h' 


Dosver Majior, Minor 
PRKINT MS-DOS versions": Major: 「.": Minor 
ドド Major < く 3 THEN 

PFNINT この ブロ グラ ム は 使用 で きま せ けん" 
IND 上 F 


MS-DOS version= 3.30 
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Dskspc(Drive) ディ スク の 空き サイ ズ ( 倍 長 整数 型 ) 
ピー ドラ イブ 番号 ( 0 : カレ ント , 1 : A, 2 : B…) 


Drive で 指定 し た ディ スク の 空き サイ ズ ( 単 位 は バイ ト ) を 倍 長 整数 
2 ます 
この ファ アァ ア ング ク ション で は 。 ax に 1 クラ ズ スタ 当たり の セク タタ 数 、bx に 
用 可能 な クラ スタ 数 , cx に 1] セク タ 当 た り の バイ ト 数 が 得 ち ん れ ます 
の で 。 ディ ォ ズ グ の プリ ー ス ペー スズ は 、 








ax 氷 bx ※ Cx 


で 求め られ ます . 


ーー ニー-/ を ディ スク の 空き サイ ズ の 取得 */--- 
-$INCLUDE: msdos.h 
INPUT Drive no ": Dr 


Sizo& = Dskspc (Dr ) 
PRINT "Disk free space=": Size&: “bytes~ 


Drivc no 2 1 


Disk frce space= 532480 bytes 








// 








Dskstat Dr, Sec, Byte, Clust, Id$ 
| | ドラ イブ の タイ プ を 表す コー ド (FAT-ID 
1 ドラ イプ 当たり の クラ スタ 数 
1 セク タ 当 た り の バイ ト 
ラス タ 当 た り の セク タ 数 
ドラ イブ 番号 (0 : カレ ント ,1: A,2 : B… 


ドラ イブ 番号 Dr で 指定 し た ドラ イブ の 諸 元 を Sec-Id$ に 得 ます . 

この プロ シー ジャ は , メデ ィ ア ・ チ ェ ッ ク す る と き に 便利 で す . 

な お この ファ ンク ショ ン ・ コ ー ル で は レジ スタ DS の 値 を 壊す の で 。, 
CALL INTERRUPTX を 用 いて いま す . DS : BX に FAT-ID の アド 
レス が 得 ら れ ま す . 





ーーー-/* 指定 ドラ イブ の 諸 元 の 到 得 */--- 





-$INCLUDE: msdos.h 


INPUT "Drive No “: Dr 
Dskstat Dr, Sec, Byte, Clust, 1d$ 


PRINT “FAT-1ID 3 
PRINT “Sector/Clustcr = : Sec 
PRINT “Byte/Sector = : Ryte 


PRINT Cluster/Drive = : Clust 


トコ 












Drive No ? 1 


FAT-1ID = ド E ドル る の 


Sector/Cluster = 4 

Byte/Sector = 1024 

Cluster/Drive = 2466 

Drivc No 2 2 

FAT-1D = FB 640KB フロ ッ ヒ ビ イ ディス ク 
Sector/Cluster = 2 

Byte/Sector = 512 


Cluster/Drjive 


ーー エッ ーー ん 
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/ーーー 


ーーー-/* 先行 和 人力 の クリ ア 』 





WSdos.h' 


午 
重 


-$INCLUDE 


Flskey 


LN 


0 昌 


IF Keystat <> 


] 


Getch(c%) <> 


E 
Putch c% 


WII 


0 


L00P 





/ 


スグ リー シン へ エコ ユ コー ノミ 


ボー ド が ら 1 文字 入力 し ます 。 入力 天 


ウジ ダグ しき 性 ん 。 





力 */--- 


『 
| 


『 接 人 日 








Sdos.h 


UDE 


| 
『』 


- $IN 


| 


く 2 


tch(c%) 


* 
Putch c% 


( 


ILk 


DO Wl 


LO00P 





(整数 型 ) 


人 入力 され た 


し 
に 
〇 
ュー ニー 
ゆ ① 
て 
() 
つう 
① 
〇 








リ // 


N 


を スク リー ン へ エコ ー ン 


入力 文 


月 し ます 


ボー ド か ら 1] 文 


ッ ク し ます . 





ツゲ 











Inkey(c%) 一 入力 され た 文字 (整数 型 ) 


Getch, Getche は キー 入力 が ある まで 内 部 ルー プ し まし た が . Im 
key は キー 入力 が な けれ ば 0 を 持っ て 帰っ て きま す . 





ーー を 内 部 ルー プ し な い 1 文字 入力 */--- 





-$INCLUDE: msdos.h' 


DO WHILE Inkey(c%) <> 品 1A 
I ト F c% = 0 TIEN 
Putch ASCC. 
ELSE 
Pulch c% 
END IF 
L00P 








の FF を 返し ます . 
Flskey 参 早 . 











式 。 NcGetch(c9%) 入力 され た 文字 (整数 型 ) 








ー Getch と 





じ で す が ,。 CTRL-C を 受け 付け ませ ん 、 





ーー/ ま 。 も 誠 受 け は 付け ない プロ グラ スム */--- 





-$INCLUDE: msdos.h' 


DO WHILE NcGetch(c%) <> -1 
NcPutch c% 
L00P 














NcPutch c% 
し - 出力 文字 


Putch と 同じ で す が , CTRL-C を 受け 付け ませ ん . 


Seldsk 


Drive $ で 指定 し だ ドラ イプ を み カレ ント ドラ イプ に し ます : 


-$INCLUDE: 


Drive 邊 


ー ド ライ ブ 名 ("A', "B” …) 


msdos.h 





ー-/* カレ ント ・ デ ィ ス ク の 設定 */--- 


INPUT Drive mame A.B... : Dr$ 


Seldsk Dr$ 
SHELL dir' 


Drive name 上 ル ,B...?7 ョ a 


ドラ イブ A: の ディ スク の ボリ ュー ムラ ベル は あり ませ ん . 


ディ レク トリ は A:YQBYSOURCE 


SIN 
TRST 
GLIB 
TESII 


〈DIR> 

〈DIR> 
BAS 269 
BAS 7 2 
BI 213 
BAS 96 3 


ま ご 0 ドー は 1 
87-07-31 
8「-09-7『 
687-10-04 
867-10-04 
87-08-09 
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この 章 で は 。 コマ ンド ・ ラ イン 引数 を 取得 し た り , それ に 含ま れ て いる ワイ ルド ・ 
カー ド を 展開 する た め の ラ イブ ラリ を 紹介 し ます . 





・ ラ イン 引数 の 取得 


A>MYCOPY し 」 ABC.BAS L」B : XYZ.BAS| ン | 





の よう に コマ ンド ・ ラ イン に 措 入 し た パラ メー タ 「ABC BAS 、, B, XYZ BAS」 を コ 
マン ド ・ ラ イン 引数 と いい ,。 Quick BASIC で は COMMAND$ で この コマ ンド ・ ラ イ 
ン 引 数 を 取得 で きま す . 

だ た だし, コマ ンド ・ ラ イン 引数 の 各 項 目 (ABC.BAS と B: XYZ.BAS) は 分 離さ れ 
て いま せん の で , これ を 分 離す る た め の プ プロシージャ Getpara を 作り まし た . 
Getpara は COMMAND$ に 与え た られ た コマ ンド ・ ラ イン 引数 を , 空 日 を 区 切り に し 
て 答 パ ラメ ー タ に 分 離し , Argv$( ) と いう 配列 に 格納 し ,. パラ メー タ の 個数 を 
Argc9% に 格納 し ます . 


COMMAND$ | ABC.BASLXYZ. 





| Getpara Argc 労 , Argv$( ) 


rm し ュー] wuLAEG_e4s] ] 2man 
Am の | XY2.BAS | 





引数 の 数 





と ?) を 含む 引数 が あっ た と き に , これ に 一 致す る ファ イル 名 を 検索 する に は , MS- 
DOS の ファ ンク ショ ン ・ コ ー ル , 4EH( 最 初 に 一 致す る ディ レク トリ ・ エ ント リ の 検 
索 ), 4FH( 次 に 一 致す る ディ レク トリ ・ エ ント リ の 検索 ) を 用 いま す . 

これ ら を , 関数 プロ シー ジャ Fsearch(Name$ , Result$) と Nextsearch (Result$) 
と し て 作成 し ます . 
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Fsearch と Nextsearch で は , DTA 領域 を ユー ザ ・ バ パ バッファ に 切り 換え る た め 。 切 
り 換え 前 の DTA の アド レス を 取得 し て お き , Fsearch, Nextsearch 処理 終了 後 再び 
前 の DTA に 戻し て お きま す . 

MS-DOS の ファ ンク ショ ン 4EH は ほ , DS : DX で 指定 し た パス 名 の ディ レグ ク ト 『 ょ 
エン トリ を 検索 し , DTA に 以下 の 情報 を 格納 し ます . 


@ 取 得 さ れ た ディ レク トリ ・ エ ント リ 


ッ ア イル に も トー 
ァイル 作成 時 刻 ァイル 作成 日 付 


ーー 


ファ イル ・ サ イズ (下位 : 上 位 ) 






検索 され た ファ イル 名 
ファ ンク ショ ン 4FH 用 の 予約 域 


に は 検索 する ファ イル の 属性 を 与 を ます . 通常 ファ イル な ら 0 を 指定 し ます 
間 し プッ イオ ip 。 ファ イル , サブ ディ レク トリ を 探す 場合 は , 以下 の 対 
応 す る 属性 ビッ ト を セッ ト (1) し ます . 


⑧ フ ァイル ・ ア トリ ピュ ー ト を 示す 属性 ビ ピット 






キー シス テム ・ フ ァイル 
が マデ ィ イル 次 トト 


つま り ,。 すべ て の ファ イル の 検索 を し た い 場 合 は CX に 層 H16 を 指定 し ます . 

ワイ ルド ・ か ー ド を 介 む ワ ァ イル 名 を ファ ング ジョ ン 4EH で 検索 し た 場合 , 最初 に 
一 致す る ディ レク トリ ・ エ ント リ が DTA に 格納 され ます . 

以後 の 一 致す る ディ レク トリ ・ エ ント リ は ,DTA 内 の オフ セッ ト 0 以後 に 格納 され 
て いる ファ イル ・ パ ター ン を も と に , ファ ンク ショ ン 4FH に より 検索 し ます . ファ イ 
ル が 見 つか ら な い 場 合 は 。 キャ リー・ フ ラグ が セッ ト さ れ ま す . 


< 






ワイ ルド ・ カ ー ド 引数 の 展開 


Getpara に より 分 離し た 引数 に ワイ ルド ・ カ ー ド が 含ま れ て いる と き は . それ を 展 
胃 し て , 新た だ に 引数 を 構成 し 直さ な けれ ば な り ま せん . それ を 行う プロ ジー ジャ 
Wild(Argc%,Argv$( )) を 作り ます . 

だ と こん は AIDSOT、 引 月 、JABC ネネ レ し | と ュ コマ ャ マン た ラメ ン か ら 入 力 さ れ た 場 
合 の Wild の 処理 は 次 の よう に な り ま す . 


Argv$(1)| *. H 
Argv$(2) | ABC. ※* 





Fsearch と Nextsearch で ワイ ルド ・ 
、 カ ー ド を DTA 領 域 に 展開 


DTA | 
J し Wid 負 理 
新しい 引数 と する 本 語 | 


Argc%| 5 | NewArgv$(1)| CRT ー 

NewArgv$(2)| MSDOS . H 
| 信 TDIO。,。 H 箕 開 し 終わ っ た ら , すべ て の 
ーー 昌夫 引数 を Argv$() に 再 コ ピー す 
| 導 有 BC 。 EE | る 


5 Eh mm im = ER im mm 


De 


EE まま 還 _ 旨 盾 _ 提  」 


な が お, ワイ ルド ・ カ ー ド に パス 名 が 付い て いる 場合 は 。 この パス 名 を 分 離し て お き . 
Fsearch,Nextsearch に より 展開 され た ファ イル 名 の 先頭 に 。 その つ と 連絡 し ます . 


Argv$ (」) A WORK ぎ ※ . H 








了 





連結 


Y CRT. 





NewArgv$(」)| W 0 K 
パス 名 を 分 離す る 関数 プロ シー ジャ は Getpath$ で す . 
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NN _ タ | 記 い 。 ーー 人 PTT ず 胃 に 
aa 0 L 全 [ コマ ン ド ト ー ライ ン 5 数 
w9 外 の 負 理 ライ ブフ ラリ 
_MS-DOS の シス テム ・ コ ー ル (ファ ンク ショ ン ・ コ ー ル ) を 利用 し た , ディ レク 
リ ・ エ ント リ の 検索 。 ワイ ルド ・ カ ー ド 引数 の 展開 を 行う ライ ブラ リ を 紹介 し ます . 


この ライ ブラ リ の ソー ス ・ テ キス ト を ARG.BAS と し , プロ シー ジャ の 宣言 ファ イ 
ル を ARG,H と し ます . 


凶 ARG.H 





ーー ーー ニー ニー = ニー ーー 一 一 ーーー バリー ーー ーー コー し 


DECLARE SUB DirOfF () 
DECLARE SUB Getpara (Argc%, ArgVv$() ) 
DECLARE SUB Wild (Argc%. ATgv$()) 


DECLARE SUB Gectdta (DSEG%, DOFF%) 

DECLARE FUNCTION Getpath$ (a$) 

DECLARE FUNCTION Getasciiz$ (a$, n!) 
DECILARE SUB Setdta (DSEG%. DOFF%) 

DECLARE FUNCTION Fsearch% (Namc$, Result$) 
DECLARE FUNCTION Nextsearch% (Result$) 


⑥ ARG . 巳 AS 


ニュ ーー ニー ニーー ニ ーー ニーーーーーーーーーーーーーー ブ ーー 一 ーーーー り ピ シ デー リョ ピー ッ ョ ヨ q 議 ーー し 


DECLARE SUB DirOff 0) 
DFCLARE SUB Getpara (Argc%, Argvt() / 
DECILARE SUB Wild (Argc%, Argv$() ) 
DECLARE SUB Getdta (DSEG%. DOFF%) 
DECLARE FUNCTION Getpath$ (a$) 

| DFCLARE FUNCTION Getasciiz$ (a$, n!) 
DFCLARE SUB Setdta (DSEG%. DOFF%) 
DFCLARE FUNCTION Fsearch% (Namc$, Result$) 
ECLARE FUNCTION Ncxtsearch% (Recsult$) 


「"$INCLUDE:  ..YbinYqb.bi 
DIM SHARED Inregsx AS ReglYpeA 
DIM SIIARED Outregsx AS ReglypeA 


DIM SIIARED buf AS SIKING * ま 64 
DIM SIIARED DSEG% DOFF% 


9/ 


ーー 


ーー 


SUB DirOf『f 
Sectdta DSEG%. DOFF% 
END SUB 


ーー 


ーーー ーー ーー ーー ーーl ーー ン ゆ ゞ ツ ッ ラーー ィ ーーー ゅ め ゅ メオ メー ツー ー ラ ーー ィ めき ィ ッ レ ポ ヨ ディ て ーーー ン ン ン ーー ビ ツ ーー ィ ッッ ラ ーーー ニン デーン ーー ンー ーー ーー 


FUNCTION Fsearch% (Name$, Result$) 
Getdta DSEG%。 DOFFX ーーーーーーーーーーー-DTA アド レス の 保存 
Setdta VARSEG(buf), VARPTR(buf) ユー ザ ・ バ ッ フ ァ に DTA を 





Namc$ = Namc$ + CIIR$(0) ] 宣 | り 当て る 
InrcgsX.aX = &HAE00 導 。 | 
Inregsx.dx = SADD(Name$) ASCIZ 文学 列 を 作る 
InhregSX.ds = -1 

InhTepSX.eS = -] 


InTegSsX.cxX = 16 
CALL INTERRUPTX(&H1. Inregsx. Outregsx ) 
Nesult$ = Getasciiz$(buf, &lIE + 1) 
Fsearch% = Outregsx.flags AND &lll 

END FUNCTION 


ニー ーー 一 ーー ーー ーー ーー 一 一 ーー ィ ョ ビィ ョ と コ do 


ニー ニニ ーー ーー 


FUNCTION Gatasciiz$ (a$, n) 
人 条 き ブ 
FOR k = n TO LEN(a$) 
c$ = MID$(a$. k, 1) 
I『 c$ = CIIR$(0) THEN 
Getasciiz$ = Db$ 
EXIT FUNCTION 
END IF 
b$ = b$ + c$ 
NEXI k 
GetaSciiZ$ = 
END FUNCTION 


ーー 


ーー > 寺 = 半 。 寺 EEEEKEEEE 


SUB Getdta (DSEG%. DOFF%) 
Inregsx.ax = Al2F00 
CALL INTERRUPTX(&H21. Inregsx, Outregsx ) 
DSEG% = OuLTegSX. eS 
DOTT% = OutrcgsX. bx 
END SU 
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ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー 


SUB Getpara (Argc%. Argv$() ) 
IF COMMANDS = THEN ユーーーーーーーー コ マン ド ・ ラ イン 引数 が な いと き 
Argc% = 0 の 処理 
EXIT SUB 
END IF 
1 = ] 
FOR k = | TO LEN(COMMAND$) 
c$ = MID$(COMMAND$. k, 1) 
IF c$ <> ぅ " "THEN 
Argv$(i) = Argv$(i) + c$ 





sflag = 1 先行 する 空 百 を スキ ッ プ 
ELSEIF sflag = 1 THFN する た め の フ ラグ 
1# 8 1* ネ 1 
sflag = 
END IF | 
NEXT k 
ArFgC% = ji 


END SUD 


> + 


ーー 


FUNCTION Getpath$ (a$) 
S = 0 
FOR k = ] TO LEN(a$) 
b$ = MID$(a$. k, 1) 
IF b$ = : OR b$ = Y THEN s ミ k 
NEAT k 
Gectpath$ = LEFT(a$, s) 
END FUNCTION 


ーー 


* 次 に 一 致す る ファ イル 名 の 検索 * 


ーー EE 3 PE SR RET sl mh imemh iismmh mmm mmmi mm PE rmir mm mm mmm rw 


FUNCTION Ncxtsearch% (Result$) 
Inregsx.axX = &l4F00 
InTepSX.dS = -]1 
ImTCESX.CS = -1 
CALL INTERRUPTX(&II21. Inregsx, Outrogsx ) 
Result$ = Getasciiz$(buf, &IHIE + 1) 
Nextsearch% = Outregsx.flags AND | 

END FUNCIION 


=ー ーー ーー 一 ーー 一 一 ーー 一 ーー ーー ーー ーーーー ーー ーー ーー 


SUB Setdta (DSEG%, DOFF%) 

Inrecgsx.aX = &H1A00 

Inregsx.ds = DSEG%X 

InTegSsX.dxX = DOFF*% 

CALL INTERRUPTX(&H21. Inregsx, Outregsx ) 
END SUB 
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ーー 


症 昌 


SUD Wild (Argc%, Argv$() ) 
DIM NcwArgv$(128 ) 


Il = 
FOR j」 = 1 TO Argc% 


4$ = Getpath$(Argv$(j) ) 
IF Fsearch(Argv$(j), Result$) = 0 THFN 
NewArgv$(n) = a$ + Result$ 
NN 上 邊 ま 】 
WHILE Nextsearch(Result$) = 0 
NewArgv$(n) = a$ + Result$ 


nhn =n+† Il 
WEND 
ELSE 
NewArgv$(n) = Argv$(j) 
Rh = 1 す 
END IF 


NEXT j 


DirOff ユーーーーーーーーーーー 一 





Fsearch で ユー ザ ・ バ ッ フ ァ に 割り 当て た 
ATgC% ミー] DTA アド レス を 元 に 戻す . 
FOR k = 1 本 0 Argc% 
ATgv$(k) = NcwArgv$(k) 
MKXT k 
END SUB 





ライ ブラ リ の 使用 法 
A>QB /L 


で QB を 起動 し て お き , ARG.BAS を 作成 し . 
グ クライ ブラ フリ ARG.QLB を 作成 し ます . 

この ライ ブラ リ を 利用 し て ユー ザ ・ ブロ グラ ム を 作成 する に は , 次 の よう に 起動 し 
寺 宣 





R/ 実 行 ] 一 | し / ラ イブ ラ 





リ 作成 | で クイ ッ 


A>QB /LARG「 ン | 


ユー ザ ・ ブ ログ ラム で は , ライ ブラ リ の プロ シー ジャ の 型 宣言 を 行っ て ある 
ARG.H を イン クル ー ド し ます 
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ユー ザ ・ ブ ログ ラム 









65TNCLUDE。 ARG H 


Getpara Argc%, Argv$( ) 





Diroff 





DTA アド レス を も と の アド レス に 復帰 させ ます . 
Fsearch. Nextsearch を 行っ た 場合 , 最後 に Diroff を コー ル し て < 
だ さい . 





関数 


式 Fsearch 9%% (Name$, Resultt ゃ や) ファ イル が あれ ば 0 , な けれ ば 1 
[- 検索 され た ファ イル 名 
検索 する ファ イル 名 








- 機 能 _ Name$ で が され る ファ イル 名 を ディ レダ トリ ・ エ ント リ か ら 控 し, 。 
人 村 Result$ に 返し ます . ファ イル が 見 つか れ ば 0, 見 つか ら な けれ ば 1 を 
戻り 條 と し て 授 し ます . 


本 "* 自作 の DIR * ゴマ シド ャ ライ タタ か ら 入 力 し た 7 
0 に halteoi の zhaeeheheea イル ド ・ カ ー ド を 含む ファ イル 名 


“ 「 を 探し て 表示 する . 
"WINCLUDE: arg.h 


Name$ = COMMAND$ 
IF Fsearch(Name$, Result$) = 0 THEN 

PRINT Result$ = ニーー 衣 航 0 の 0 ディ レタ トリ エン トリ の ザー チ 
ENI) 1『 


DO WHILE Nextsearch(Result$) = 0 
PRINT Result ュー-- 2 番目 以後 の サー チ 
L00P 加 
DirOTI DTA の アド レス を 元 に 戻す [ 





A>mYdiT *.qID 


MYLIB. QLD 
ARG. QLD 





?1 














へ 
SH ' ' 
へ さ ジ 氏 に 
1 で 『、 
| ー つ 5 
So 記 + 二 半 ポ 
ト 吉 安 革 3 い So へ 人 毅 
yea コ 
『 回 乱 ー や ビ . て 59 っ の 
く 呈 喜 N \ に y ま プ 
2 避 思 お R まま 8 テ 。 る 
っ きり の K ペー = 3 
NN 台 : : 抽 Le っ へ 球 「、 
n S る で ゃ G SN 応 KS 
式 へ し 棒 
へ に y NN こ a MM 0 
人 メッ ンコ 選 や の ) EN ーー 
っ ま $% _- ト で の ー 吾 4 
「 へ 4 S て ー 三 > 回 
= 瞳 侍 さら の ュ ヒ KN ) の FT ま 0 攻 、 
こ 計 ポ N、 8 T L 品 le16 封 " 、 ャ 一 
か っ NL の ・ 98 9 | 末 そう ・ 
較 ト 爺 5 ミリー 
ma 2 「 | そ 5 \ 0 つ 
・ ポ び 6 6 ュ 3 豊年 宇 に 
。 臣 9@ SS 。 て SS 補 油 所 
< 飼 36 つ っ 46 て mw 3 
| し 8 ゃ っ ロロ ロ G G0 ンー 
8 ・ 語 ピ 回 S Q① 吉 で で 
Q や @ づつ O 8 えい 
Q 記 < 選 忘 。 。 
ソソ 路 己 に 













ァ ノ 









モエ w し ーー 電 鹿 や 
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例 ーーー-/* コマ ンド ・ ラ イン 引数 の 取得 */--- 
^ 間 GLBDE: arg.h ASKd Me ea 2 
DIM Argv$(10) ABC 
Getpara ATgc%, Argv$() XY7 


123456 





FOR k = 1 TO Argc% 
PRINT Argv$(k) 
NEXT k 








式 。 Getpath$(a$) 分 離さ れ た バス 名 
jp フル ・ バス 名 


機 能 as で 写 え られ た フル ・ パ ス 名 (パス 名 士 ファ イル 名 ) か ら フ パス 名 を 分 離 
_ し ます . パス 名 と ファ イル 名 の 区 切り は ” : "か 最後 の " 壮 " で す . 
B : \WORK\ ABC.BAS 
バス 名 ファ イル 名 








式 。 Nextsearch 9%% (Result$) ファ イル が あれ ば 0 , な けれ ば 1 
一 検索 され た ファ イル 名 
機 能 ワイ ルド ・ カ ー ド を 含む ファ イル 名 が Fsearch% (Name$ , Result$) で 


検索 され た あと , 次 に 一 致す る ファ イル 名 を 検索 し ます . 見 つか れ ば 
0 。 見 つか ら な けれ ば 1 を 返し ます . 


例 _ Fsearch 参 早 . 








式 。 Setdta DSEG%,DOFF % 
ーDTA アド レス の オフ セッ ト 値 
DTA アド レス の セグ メン ト 値 


機 能  DTA の アド レス を DSEG% : DOFF% に 設定 し ます . 


y3 





ー 各 引数 文字 列 


引数 の 数 


Argc 2%, Argv$( ) 


ー 
テ 








列 を Argv$( ) に 構築 し. その 引数 


Argv$( ) に 与え られ て いる 各 引 数 の 中 で , ワイ ルド ・ カ ー ド を 含む も 
ー 


の は それ を 展開 し , 新た な 引数 文 





し ます . 


一 


こ 反 


の 個数 を 再び Argc%( 


引数 の 展開 4/--- 


5 
男 


-ー--/* ワイ ルド ・ カ ー ド 


arTg.h 


宮 
に コ 


-$INCLUDE 


DIM Argv$(256) 
Getpara Argc%. Argv$() 


Wild Argc%, Argv$() 


1 TO Argc% 


FORk = 


PRINT Argv$(k) 


NEAT k 


1 
いこ | 
ーー) 
に we 
キー ド 
"」 
い 
ーー 
も ウ 
で 
] 
に 
いい 
| 
| 
上 . 
= の 
上 コ 
eu 
に ー 


TEST. BAS 


TESTI. BAS 


TEST2. BAS 


TESTF. BAS 
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シス テム ・ コ マン ド の 
ファ イル 入出 力 デー デ ト * プイ レ 引 数 の 処理 ライ プラ リ (ARG.BAS) を 用 いて . 


TYPE コ マン ド や COPY コマ ンド な どの シス テム ・ コ マン ド を 作成 し て み ま し ょ 
。 











A>MYTYPE し , ABC .BAS 


な など と 入力 する こと に より 。 コ マ ア ド ・ フ イン 『 数 で 記さ れる アテ イル の 内 容 を 表示 
し ます, 


まま も YDEe コマ ンド #* 


= ml mm mam msn emem ーー ボー ニー ーー ペ へ ーー ーーーーー ーー 


「$WINCLUDE: arg.h 


DIM Argyv$(10) 
Getpara Argc%, Argv$() 


IF Argc% = 1 THEN 
fd = FREEFILF さ ーーーーーーー 
OPEN Argv$(1) FOR INPUT AS #「d 
DO WHILE NOT EOF(fd) ーー ここ を #1 な ど と 固定 する と . も し ほか 
2$ = INPUTY(I. # fd) の プロ グラ ム と いっ し ょ に 使う 場合 
間際 a$ <〉 CHR$(&HA) THEN PRINT a$: に 。 計 が すでに オー プン され て いれ 
CLOSE #fd 行末 の &HD, &HA の は , ーー で は オー プン で き いい と て な っ て 
FND ]『 うち &HA は 表示 し な い . し ま 9。 ' 補 こ 人 FREEFILE 選 よ り 便 用 
「 で きる ファ イル 番号 を , 動 的 に 取得 す 
る よ 信 に し て いる 。 





使用 で きる ファ イル 番号 を 取得 





行 番号 付き TYPE コマ ンド 


A>LIST _」ABC.BAS| ン | 





な ど と 入力 する こと に より , コマ ンド ・ ラ イン 引数 で 示さ れる ファ イル の 内 容 を , 行 
単位 で 行 番号 を 付け て 表示 し ます . 


ツ S 


:) ゅ INCLUDE: arg.h 


・ DIM Argv$(10) 
・ Getpara Argc%, Argv$( ) 


ーー 症 に ー : 症 = 軸 - 半 時 ーー ュー 一 








9 届 kS 
10 : IF Argc% = 1] THEN 
1 1 fd = FREEFILE 
12 OPEN Argv$(1) FOR INPUT AS #fd 
13 Num = 1 行 番号 
14 DO WHILE NOT EOF(fd) 
15 LINE INPUT #fd, a$ ニキ ーー | 行 の リー ド 
16 PRINT USING ### | "| Num: 
1 ? PRINT a$ 
18 Numm = Num + ] 
19 ・ L00P 
20 : END IF 
2 1 


辛 ) こ の プロ グラ ム : り リスト は この ブロ グラ ム 自 身 で 打ち 用 し た も の で す 。 








3| ワイ ルド ・ カ ー ト 数 の 展開 を 含む TYPE コマ ソ 


A>WILD ABC.BAS B*.BAS| ノ | 


な ど と 入力 する こと に より ワイ ルド ・ カ ー ド 展開 され た すべ て の ファ イル (ABC. 
BAS, BEEP.BAS, BALL.BAS な ど と ) に つい て , TYPE コマ ンド を くり 返し 実行 
し ます 


ーー ーー ーー ーー ーー ーー ーー ーー ーーー ニー ニー 一 一 一 一 一 一 一 一 ーー 一 ーー ーー 王 一 一 ーー ューーー ビ ーー ニ ーー ニー デー ツー ゆ ろ ーーto ィ ーー バ ーッ ゆ ツメ Mー ーー ーー ーー ーー 一 ーー ーー ーー ーー 一 一 


* ワイ ルド ・ カ ー ド 引数 の 展開 を 含む type コ マン ド * 


ーー 一 


「$INCILUDE: arg.h 
DIM Argv$(255) 


Getpara ATgc%, Argv$() 


wild Arpc%, Argv$() ワイ ルド ・ カ ー ド 引数 を 展開 





FOR k = 1 TO Argc% 
PRINT 
PRINT "--- Listing File : ": ATgv$(k): | --- 
PKINI 
OPEN Argv$(k) FOR INPUT AS 者 
DO WIILE NOT EOF(1) 
LINE INPUT #, a$ 
PRINT a$ 
00P 
CLOSE | 
NEKXT k 


ツ O 


素 d 草 コマ ンド ・ ラ イン 引数 の 処理 ルー チン 


ーー- Listing File : TIMER.BAS --- 


st& = TIMER 
PRINT "これ か ら 30 秒 間 眠 り ま す . . . 
WHILE TIMER - st& < 30 

WEND 


--- Listing File : TRIANGULE. BAS --- 
ーー-/* 直角 3 角形 の 組合 せ (べき 乗 の 精度 ) */--- 
MaxNum = 20 


FOR a = 1 T0 MaxNum 
FOR b = 1 TO a 
FOR c = b TOa 
IF a 2 =b 2+c 2 THEN PRINT a, b, c 
NEX[ c 
NEXT b 
NEXI a 








テキ スト ・ ラ イタ 


A>TEXTWR し 」 ABC.TXT[/] 





な ど と 入力 する こと に より , キー ボー ド か ら 入 力 し た テキ スト を ファ イル ABC. 
TXT に フラ イト し ます 。 
テキ スト 入力 の 終わ り は , 行先 頭 で ICTRL| 十 |2Z| キ ー の 入力 で す . 


ie 


「$INCLUDE: arg.h 


DIM Argv$(10) 
Gotpara Argc%, ArgV$() 


IF Argc% = 1 TIHPN 
fd = FREEFIIE 
OPEN Argv$(1) FOR APPEND AS #d 
LINF INPUT a$ 
DO WIIILE a$ <> CHR$(26) 「 人 の 本 病 活 放 
PRINT #fd, a$ 
LINE INPUT a$ 
L00P 
CLOSE #fd 
END IF 


テア 





な ど と 入力 する こと に より , A.BAS を B.BAS に コピ ー し ます . .EXE ファ イル な 
どの バイ ナリ ・ フ ァイル の コピ ー も 行え ます. 








な と と 入力 する こと に より , A.BAS の 内 容 を 16 進 で 出力 し ます . 16 バ イト 単位 で フ 


COPY コマ ンド 


A>MYCOPY A.BAS B.BAS[ ン | 


1 im mr mm tim mm 5 還 還 | - 人 mh < FE im mm mm mm = mm cm mm 5 im 


-$INCLUDE: arg.h 


DIM Argv$(10) 
Getpara Argc%, ArgVv$() 


IF Argc% = 2 THEN 
fdi = FREEFILE 
OPEN Argv$(1) FOR BINARY AS #fdi 
fdo = FREEFTLE 
OPEN Argv$(2) FOR BINARY AS #fdo 
DO WIILE NOT EOF(Fdi) 
a$ = INPUT$(512., #fdi) 
PUT #fdo, , a$ 





バイ ナリ ・ モ ー ド で オー プン 


し ーー ーー レコ ー ド 番号 を 省略 する と , 次 の デー タ 位 置 ベラ イト 


CLOSE #fdi, #Tdo 
END IF 


A>DUMP 」」A.BAS[ ソ | 


DUMP コマ ンド 


ァイル か らら リー 誕 務 。 16 進 コー ド と 。 リス イー 又 学 の 2 種類 で 表示 し ます . 


ツ O 





ファ イル fd 


パッ プア a$ 


INPUT$(16, # fd) 1 フィ ー ル ド 


52 リー ララ 
XXX に WOX …… AA……A 


アド レス 16 進 フィ ー ル ド アス キー 
フィ ー ル ド "! 





mm ss = mmm mm mm 


第 d 章 コマ ンド ・ ラ イン 引 数 の 処理 ルー チン 


ーー ニー ニーー ィ ィ ューーGーー ぶ ーー ンー ニー ンー 


'$INCLUDE: arg.h' 


DIM Argv$(10) 
Getpara Argc%, ArgV$() 


CLS 


IF Argc% = 1] THEN 


fd 


e ーーー バ パイ ナリ ・ モ ー ド で オー プン 
FREEFILE 


OPEN Argv$(1) FOR BINARY AS #fd 


adr 


= 0 


DO WHILE NOT EOF(fd) 


a$ = INPUT$(16. #fd) [ 
PRINT RIGHT$("000" + HEX$(adr),。 4)」 「:“: "アド レス 表示 





6 イト の リー ド 


FOR k = 1 TO LEN(a$) "16 進 ダン プ 
PRINT RIGHT$C00~ + 上 EX$(ASC(MID$S(a$. k, 1))), 2)」 ] “・ 

NEXT k 

PRINT “ - 過 まき 上 まみ 


FOR k = 1 TO KLEN(a$) 
b$ = KMID$(a$. k, 1) 
IF (b$. < く " " OR "" < く b$) AND LEN(b$) = 1 THEN 


|=ーASCII 文字 の "し "以下 と 


二 | "以上 は ピリ オド で 表 
PRINT b$: 漢字 は その まま 小 
END IF 表示 させ る た め の 条 件 
NEXT k 
PRINT 
adr = adr +† 15 
L00P 
CLOSE #fd 
END IF 


0000: 
0010: 
0020: 
0030: 
0040: 


0050: 
0060: 
0070: 
0080: 
0090: 





58 ーー ニー-ー/* キ コマ ンド 
E6 ・ ラ イン 引数 の 取 
4E 全 キ /---.  . $IN 
0A CLUDE: arg.h .. 
) 0D ..DIM Argv$(10). 
し 20 .Uetpara ATgEC%, 
6B Argv$()... FOR k 
20 = 1 TO Argc%.. 
6B PRINT Argv$(k 
)..NEXA| Kk.... 


ツ ツ 








| OU リダイレクト と 
ID リダイレクト 
UNIX で MS-DOS で は ,。 キー ボ ポー トド や (CR 和 〒 な どの デバ イス も ファ イル の 一 種 と 
考え , 一 般 の ディ スク ・ ファ イル と 同等 に 扱え る よう に な っ て いま す 」 そし て , テッ ン ヾ 
イス また は ディ スク か ら の 入力 を 行う 標準 入力 と し て stdin, 出 力 を 行う 標準 出力 と し 


て Stdout を 定め , ユー ザ が この stdin/stdout を 実際 の デバ イス また は ディ スク ・ フ ァ 
イル に 割り ふれ る よう に し て いま す . これ を 1/O リダイレクト と 呼び ます 」 


| リダイレクト 1 
" 人 傘 ダー 』 
〆 アイ 寺 


人 」 stdin | Stdout 
| 才 稼 。 の の) 物 フィ ル タ トー=O 


UX “ ' 9 












RS-232C 





Stdin と stdout は 通常 ,。 キー ボー ド と CRT に それ ぞ れ 割り 当て られ て いま す が . 
コマ ンド ・ ラ イン か ら 次 の 記号 を 与え る こと で 1I/O リダイレクト で きま す - 


く … 人 入力 の リダイレクト 
ター… 当 旋 の リダイレクト 


こら えん 
出力 の リダイレクト 
A>type a.c > b.c 


と すれ は ば, 本 来 type a.c の 内 容 は CRT に 出力 され る の で す が , これ が ディ スク ・ フ 
ァイル b.c に リダイレクト され , ファ イル b.c に type の 内 容 が 出力 され ます 

標準 入力 (stdin) か ら デ ー タ を 入力 し , 標準 出力 (stdout) へ デー タ を 出力 する タイ 
プ の ブ プログラム は 1/O リダイレクト で き る の で , 入出 力 は キー ボー ド と CRT に 限定 
され すず , 油 用 的 な ファ イル 処理 プロ グラ ム と な り ま す . 
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gl フィ ル タ 型 プロ グラ ム 


Quick BASIC は MS-DOS 上 で 動作 する の で , 標準 入出 力 と いう 概念 を 持っ て い 
て , キー ボー ド か ら デ ー タ を 入力 する INPUT,LINE INPUT INKEY$ INFPU1$, 
INPUT\ な ど は 標準 入力 か ら の 入力 と な り , スク リー ン へ の 出力 を 行う PRINT は 
標準 出力 へ の 出力 と な り ま す . 

そこ で , 標準 入出 力 に 対し て 入出 力 を 行う INPUT$ と PRINT を 用 いた 次 の ブロ 
ゲラ ム を 考 〆 で み ま し ょ う 。 


ーーー-/* 標準 人 出力 フィ ル タ ーー- 


4$ = INPUT$(1) 

DO WIILE a$ <〉 CHR$(&I1A) 7 の 入力 
IF ASC(a$) <〉 &IA THEN PRINT a$: 
3$ = INPUT$(1) 

LOOP 





この プロ グラ ム ( た と えば stdfilt と いう 名 前 で 作っ て ある と する ) は , I/O リ ダイ 
レク ト し な けれ ば , キー ボー ド か ら 入 力 し , CRT に 出力 する 何 の 変 折 も な い ブ ログ 
ラム で す が , 次 の よう に 1/0 リダイレクト し て み ま し ょ う . 


A>stdfit < a.c 
これ は 。 ファ イル a.c の 内 容 が CRT に 出力 され る type コマ ンド で す . また , 
A>stdfilt > b.c 


と TI/OD リダイレクト すれ ば , キー ボー ド か ら 入 力 し た 文字 を ファ イル Db.c に 書き 出 
す デ キス トッ ライ ク に あり 


A>stdfilt < a.c > b.c 


と TI/O リダイレクト すれ ば , a.c の 内 容 を b.c に コピ ー す る copy コマ ンド に 告 変わ 
り し ます . 

この よう に , stdin/stdout へ の 入出 力 を 行う プロ グラ ム と 1I/O リ ダイ レク ト を 組み 
ぬ ふち 攻 る みこ と に より . 非常 に 所 用 的 で コレ パタ ト な プロ グラ ム を 作る こと が で きま 

この よう な 標準 入力 か ら 入力 し , その デー タ を 標準 出力 へ 出力 する タイ プ ブ の ブロ グ 
ラム を , フィ ル タ 型 プロ グラ ム と 呼び ます . 

な お ,。 INPUT と LINE INPUT は , 標準 入力 か ら 入力 し た デー タ を 標準 出力 に エ 
コン ーッ グ で ゆる の で 。 フォ ルズ タダ 型 プログ ラム に は 適し ませ ん 。 

それ で は , フィ ル タ の 例 を 2 つ 示 し ます . 
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画 小文字 一 大 文字 変換 フィ ル タ 


小文字 を 大 文字 に 変換 する フィ ル タ UPPER を 次 に 示し ます . 
珍 フ ィ ル タ UPPER 








ーー-/* 大 文字 変換 フィ ル タ */--- 


a$ = INPUT$(1) 

DO WIILE a$ <> CIHIR$(&HIA) 7 の 人 入力 
IF ASC(a$) <> &HA THEN PRINT UCASEF$(a$) : 
a$ = INPUT$(1) 

L00P 


この フィ ル タ を 用 いて ,。 A.TXT の ファ イル を 大 文字 に 変換 し , B.TXT に コピ ー 
する に は 次 の よう に し ます . 


上 2HDDGT XX 、tLxt > btxt 


A>type b. txt 
1HIS 13S A EPR. 
HELILO QUICK BASIC ! 





一 行 番号 付加 フィ ル タ 


テキ スト を 1 行 単位 で リー ドレ し , 4 桁 の 行 番号 を 先頭 に 付加 する フィ ル タ LINE 
を 次 に 示し ます . 
珍 フ ィ ル タ LINE 


ーーー-/* 人 行 調 号 付 川 フィ ル タ キ /--- 
_ DFCLARF FUNCTION Gcts$ () 


Lnum = ] 
4$ = Gets$ 
DO WIILE a$ < 
PRINT USING ## : Lnum: 
FRINT 3 5 油 二 
Lnum = Lnum + 人 
a$ = Gets$ 
L00P 


FUNCTION Gets$ ” 1 行 の 入力 関数 
b$ = 
4$ = INPUT$(1) 
DO WHILE a$ <> CIR$(&HA) 」 ーー| 行 の 終わ り ま で くり 返す 
b$ = b$ + a$ 
a$ = INPUT$(1) 
L00P 
Gets$ = b$ 
END FUNCTION 
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パイ ブ 





フク イル み グ 型 の プロ グラ ム ほ 。 パ イプ を 用 いて いく つ で も つか な げ て u。〈 と ご と が で きま 


す . パイ プ は MS-DOS の コマ ンド ・ ラ イン で 「!」 の 記号 で 表し ます . 


@ バ イプ 





stdin 






stdout 


元 に が し た 2 つの フィ ル タ UPPER,LINE を 用 い , ファ イル A.BAS の 内 容 を 大 
文字 に 変換 し , さら に 行 番号 を 付け て プリ ンタ に 出力 する に は 次 の よう に し ます . 


A>TYPE A.BAS 」 UPPER | LINE > PRN| ン | 


これ に より 次 の よう な 結果 が 得 ら れ ま す . 
















: DECLARE SUB DISP (MOJI$, NUMI,。 COLT) 
: DISP HELLO QUICK BASIC", 2。 3 


: SUB DISP (MOJI$, NUM. COL) 
COLOR COL 
FORNK = 1] TO NUM 
PRINT MOJI$ 
NEXT K 
・ END SUB 


ーー ch 3 モラ ーー | 


105 









Quick BABIC の 標準 入出 力 の 問題 点 


Quick BASIC で 標準 入出 力 を 行う 基本 的 な ステ ー ト メン ト は INPUTS と 
PRKINT で す . これ を 用 いて フィ ル タ を 作る に は 次 の よう に し まし た . 


a$ーINPUT$(1) 

DO WHILE  a$<>CHRS$(&H1A) 
IF ASC(a$) く >&HA THEN PRINT as$: 
a$=INPUT$(1) 

LOOP 


この ブロ グラ ム は 2 つの 問題 点 を 持っ て いま す . 第 1 占 は INPUT$ で は デー タ の 
終わ り を 統一 的 に 扱え な いこ と で す . INPUT$ が キー ボー ド か ら の 入力 を 行っ て い 
る と き の デ ー タ の 終わ り は , ユー ザ が 設定 し た キー 入力 で 行い ます . この 例 で は 
ICTRL|] 十 |2Z| キ ー の 入力 を デー タ の 終わ り に し て い ます . これ に 対し , INPUT$ が テ 
ィ ス ク ・ フ ァイル か ら の 入力 を 行っ て いる と き は ファ イル ・ エ ンド で EOF( ) が 真 と な 
り ま す 。 し か し , IO リダイレクト に より 標準 入力 が ジィ スク ・ ファ イル に 割り 当て 
られ て いる と き の フ ァイル 番号 は Quick BASIC で は 調べ られ な い の で , 結局 EOF 
( ) で は ファ イル ・ エ ンド を 検知 で きま せん . 

上 の プ ブログ ラム の 標準 入力 が 1/O リダイレクト され ディ スク ・ フ ァイル に 割り 9 
られ て いる と き , a$<CHRS$ ( 科 H1A) と いう 判定 は 何 の 意 味 も あり ませ ん それ で 
は と うし て ブロ グラ ム が 終了 する の か と いう と , ファ イル ・ エ ンド に 達し た と き 
INFUT$ で 入力 する デー タ が な い の で エラ ー が 発生 し , 強制 的 に プロ グラ ム が 終了 
し て いる の で す . したがって, 上 の プロ グラ ム で TDDOー LOOP の あと に 文 が あっ た 場 
合 , それ は 実行 され ませ ん (ディ スク ・ フ ァイル に 1I/O リダイレクト され て いる と 
き ). 

さて , 問題 点 の 第 2 番目 は , PRINT で 必 HD(CR コー ド ) ま た は CHA(LF コー 
ド ) を 出力 する と , いずれ も &HD と &HA (CR -LF) コー ド ( 2 バイ ト ) を 発生 し 。 結 
林 的 に 改行 が 2 回 行わ れ て し まい ます . 

て そこで , この 草 で は , MS-DOS の ファ イル ・ ハ ンド ル を 用 いた 標準 ファ イル 入出 力 
フイ ブラ リ を 作り ます . これ ら の ライ ブラ リ は , フィ ル タ 型 プロ グラ ム を 作る の に 便 
利 で す . 
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ファ イル ・ ハ ンド ル 


MS-DOS の シス テム コー ル を 用 いれ ば , 簡単 に ファ イル 処理 を 行う こと が で きま 
す . この ファ イル 処理 に は ,。 ファ イル ・ ハ ンド ル と いう シス テム が 管理 する ファ イル 
記述 子 ( 整 数 値 で 与 た を ら れる) を 用 いま す . 

MS-DOS の ファ イル 処理 で は , ファ イル 名 が 置か れ て いる 先頭 オフ セッ ト 値 を 指 
第 し て 。 プ ァ イル オーブン (た と えば プ ァ レク ショ ルン 8 する と 、 ラ ァイル ド ャ ホッ ド 
ル 番 号 が レジ スタ AX に 返さ れ ま す . 以後 ファ イル へ の リー ド / ラ イト は , ファ イ 
ル ・ ハ ンド ル を 用 いて 行う こと が で きま す . ユー ザ 側 は , 何 バ イト の デー タ を どこ の 
可 域 じ バ ッ フ ァ ) に リー ド / ラ イト する の か を 指示 する だ け で よく , あと は MS-DOS 
が ファ イル ・ ハ ンド ル で 示さ れる 管理 領域 を 用 いて ファ イル を 管理 し て くれ ます . こ 
の よう す や を 以下 に 示し ます 、 





ユー ザ ーー*- MS-DOS 





handle handle 用 管理 領域 


| リー ド / ラ イト 用 リー ド / ラ イト 
ユー ザ ・ バ ッ フ ァ | 





な お , ファ イル ・ ハ ンド ル を 用 いた ファ イル 処理 を 行う 際 の ファ イル 名 は , ASCIIZ 
文字 列 (文字 列 の 終わ り に 00H を 置い た も の ) を 使い ます . 

さて , MS-DOS で は 0 一 4 の ファ イル ・ ハ ンド ル を あら か じ め オ ー プ ン し て あり . 
ユー ザ は これ ら の ハン ドル で 割り 当て られ た ファ イル (デバ イス ) を ,。 あら た め て オー 
プン せ ず に アク セス する こと が で きま す . 標準 ファ イル ・ バ ハン ドル を 以下 に 示し ま 
す . 


標準 入力 . 通常 は キー ボー ド . デバ イス 名 CON 
| 標準 出力 . 通常 は CRT. デバ イス 名 CON 


標準 エラ ー 出 力 . CRT に 固定 
標準 補助 装置 . RS-232C な ど . デバ イス 名 AUX | 
標準 プリ ンタ . デバ イス 名 PRN | 





10/ 





の イル ・/ じ ド 肥 た 


この 章 で 紹介 する 。 ファ イル ・ ハ ンド ル を 用 いた ファ イル 入出 力 ラ イプ ラリ の 各 プ 
ロ シ ー ジ ャ を 分 天 す る と 。 以下 の よう に な り ま す . 


loseh | ハン ドル の クロ ー ズ スズ 
_Createh | ファ イル の 新規 作成 
_ QpmiN | ファ イル の オー プン 


アイ ル か ら の リー トド 
ファ イル へ の ライ ト 
ファ イル か ら の 1 行 入 力 


ファ イル か ら の 1 文字 入力 
ファ イル へ の 1 文字 出力 


| Lseek | ファ イル 現在 位置 の 移動 
| up | ハン ドル の 2 重 化 
_ Dup2 | ハン ドル の 指定 ハン ドル へ の 2 重 化 


| Getchar | 標準 入力 か ら の 1 文字 入力 

| Gets | 標準 入力 か ら の 1 行 入力 

| Putchar | 標準 出力 へ の 1 文字 出力 

_ Getkey | |/O0 リ ダイ レク ト さ れ な い キ ー 入 力 





ファ イル と の 入出 力 の 基本 は Readh と Writeh で す . Fegets,Getc ,Putc は Readh/ 
Writeh を 用 いて 1 文字, 1 行 単位 の ファ イル 入出 力 を 行っ て いま す . [ 

Getchar,Gets, Putchar は Fgets,Getc,Putc の ファ イル ・ ハ ンド ル に , 標準 入出 力 
ハン ドル を 指定 し た も の で す . 
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@ STDIO.H 


mm mm mm mr ニー ーー ニー = ニーー モー ーー ーー ニー ーー ーー ご ニー ィ ョ ーー ーー ョ ーー テ ィ ョ ィ ー ョ ィ ョ ーー リィ ーーK ろ ーッ ーー 


上 ファ イル ・ ハ ンド ル を も 攻 u た ファ イル 人 出力 ライ デラ タリ ・ ペ ヘッダ 


ーー = ニー ーー ーーー ニ ーー ンー ーー ィ ョ ーー ティ きき ーー ーー 


DECLARE SUB Lscek (Hd%, Byte&, Mode%) 

DECLARE FUNCTION Gets$ () 

DECLARF FUNCTION Fgets$ (Hd%) 

DECLARE FUNCTION Gctc% (Hd%) 

DECIARE SUB Putc (a%, ld%) 

DECLARE FUNCTION Dup% (ld%) 

DECLAREF FUNCTION Dup2% (Hd1%, Hd2%) 

DECLARE FUNCTION Getkey% () 

DECLARE FUNCTION Writeh% (buff%(), Byte%. Id%) 
DECLARE FUNCTION Createh% (Path$, Atr%) 
DECLARE FUNCTION Openh% (Path$, Mode%) 
DECLARE SUB Closch (Ild%) 

DECLARE FUNCTION Readh% (buff%(), Byte%, Hd%) 
DECLARE SUB Putchar (d%) 

DECLARE FUNCTION Getchar% () 

DECLARE SUB Fputs (a$. HHd%) 

DECLARE SUB Puts (4$) 


る STDIO . BAS 


> 年 > 生理 時 まま 時 日 9 肝 時 > 3 。 昌和 。 王 。 時 。 ギーー ーー トー た 。 ニー エー ーー ニー ニーー ニ ーー ューー ニ ーー ュー ルス PE 


を 。 ブ プ ァ イル ・ ハ ンド ル を も ちい た ファ イル 人 出力 ライ ブラ リ *# 


mm mm mm = ニー = ーー ーー ーー ニー 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー 


DECLARE SUB Lseek (Hd%. Byte&,. Mode%) 

DECLARE FUNCTION Gets$ () 

DECLARE FUNCTION Fgets$ (ld%) 

DECLARE FUNCTION Gectc% (ld%) 

DECLARE SUB Putc (a%. Id%) 

DECIARE FUNCTION Dun% (Id%) 

DECLARE FUNCTION Dup2% (Hd1%. ld2%) 

DECLARE FUNCTION Getkcy% () 

DECLAME FUNCTION Writech% (buff%(), Byte%. 1ld%) 
DECLARE FUNCTION Createh% (Path$, ALr%) 
DECLARE FUNCTION Opcnh% (Path$. Mode%) 
DECLARE SUB Closch (Id%) 

DECLARE FUNCTION Recadh% (buff%(). Byte%, Hd%) 
DECLARE SUB Putchar (d%) 

DECLARE FUNCTION Getchar% () 

DECLARE SUB Fputs (a$, Hd%) 

DECLANE SUB Puts (a$) 


「$INCLUDE: ..YbinYOB.BI 
DIM SIIARED Inregs AS RegType 
DIM SHARED Outrecgs AS RegType 


DIM buFf%(1024) 
COMMON SHARED bu[f%() 
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ピー ーー > 到 -。 は 


PE mhm pmmm homes mmm mmm iis mm Fm fm mr sim Em mm im Em ーー = 


__ 邊 _ 才 部 一 


SUB (Closeh (ld%) 


END SUB 


ーー | 


上 


Imregs.bx = 昌 d% 

Iregs.aX = All3E00 

CALL interrupt(&ll21. Inregs, Outrcgs) 

IF (Outregs.flags AND 中 1) = 1 THEN 
PRINT "「 フ ァイル ・ ク ロー ズ 失 了 敗 " 

END IF 


* ファ イル の 新 夫 作成)"* 


ーー 


FUNCTION Createh% (Path$. AtrT%) 


Path$ = Path$ + CIHIR$(0) 

Inregs.dx = SADD(Path$) 

Inregs.cx = Atr% AND &HFF 

Inregs.aX = &H3C00 

CALL interrupt(&H21. Inregs. Outregs) 

IF (Outregs.flags AND &lll) = 1 THEN 
Createh% = -] 


EI.SE 
Creatch% = OutregSs.aX 


END IF 


END FUNCTION 


ーー 一 


Phi ina nii cre 拓 . 時 cm 


Pi msh mmm imi ji Fm FE Emi Emm mmm mm EE msn mmmsmh mmm mes mm 


ーー 


FUNCTION Dup% (Hd%) 


Inregs.bx = dd% 

Inregs.aX = &lH4500 

CAIL interrupt(&H21, Inregs, Outrcgs) 

IF (Outregs.『lags AND &lHl1) = 1 THEN 
Dup% = -1 

LSE 
Dup% = OutrCgS. 4X 

END IF 


END FUNCTION 


し 一 


一 


1 mm imim 時 = mm im mmm ・ 古 mm mmm mm me mm chm "im mmr mmmsr cmr mmm -Smmamr Fi 還 ===- mim fm ii * 全 hmm- mh cr hm ciim 国人 mh mm 


FUNCTION Dup2% (Ild1%. ld2%) 
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Inrcgs.bx = HHdI% 

InregSs.cX = Id2% 

Inregs.axX = 4600 

CALL interrupt(&ll21. Inregs. Outregs) 

IF (Outregs.flags AND &ll1) = 1 TIIEN 
Dup2% = -] 

ELSE 
Dup2% = 0 


第 4 章 


END IF 
END FUNCTION 


ーー IE EE 


人 人 人 EEE 


FUNCTION Fgets$ (Hd%) 
b$ = 
DO 
a% = Getc(lld%) 
IF a% = -1 TH 有 EN Fgets$ = ": EXIT FUNCTION 
b$ = b$ + CIIR$(a%) 
LOOP WHILE a% <> &HA 
Fgets$ = b$ 
END FUNCTION 


ーー ーー ニーー ーー ニーーーーーーーーー ず ァ ィ ッ ーー メ ポーン 』 テ 人 ィ テ ーッ ポポ ーー ッッ レー ピ コピ . 有 ピ 


SUB Fputs (a$. Id%) 
FOR k = 1 TO LEN(a$) 
Putc ASC(MID$(a$. k, 1)), dd% 
NEAI K 
END SUB 


ニー ーー ニー ニー ニニ ーーー テ ーーーーーーーーー ョ りー ポ ョ レラ ーー ァ ッ りー ーー ーー き ョ ポ バ オ ー ョ ポ ー ピ ョ ーー 


"* ファ イル か ら の 1] 文字 入力 # 


ニー -==m ーー mr mm mr ーー = mi mi Fm pm mm mmm mm ee EE 


FUNCTION Getc% (Hd%) 
a = Readh(buff%(), 1. Hd%) 
IF a = 0 THEN 
Gectc% = -1 
ELSE 


Getc% 
END IF 
END FUNCTION 


buff%(0) AND 人 FF 


ー ニ = ニニ = ニニ ーー ニー ーー ーー ーー 一 ー 一 ーー デー ーー ショ ーー 


ーー ーー ーー ーーーーー ィ 0ーー ィ ーーーー ーー リョー ーー 


FUNCTION Getchar% 
Getchar% = Getc%(0) 
END FUNCTION 


標準 入出 力 と フィ ル タ 
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デニ m※ キ 還  ' 二 


mmm ma mmm = === ーー 


FUNCTION Getkey% 
lld% = Openh("CON" + CHR$(0), 0) 
Std% = Dup%(0) 
IF Dup2%(lld%. 0) = -1 TIIEN 

PRINT "2 車 化 出来 ませ ん ~ ] CON を stdin に コピ ー 


デバ イス CON の オー ブン 
ハン ドル 0 の 退避 








END IF 
Inrecgs.ax = &H800 二 | 
CALL interrupt(&l21. Inregs. Outregs)/ | CON か ら の 入力 


IF Dup2%(Std%, 0) = -1 THEN ie ae am “ 
PRINT ^ 2 重 化 出来 ませ ん ^ rm ドル を stdin 

END IF - 戻 す . 

Closeh Hd% 

Closeh Std% 

Getkecy% = Outregs.ax AND &IFF 


END FUNCTION 


ーー 一 ーー 一 = ニー ーー ーー 一 ーー ーー ーー ーー ーー ーー ーーー ューー ず ーー9 ゞ ツ ッ ー ョ ー ーーー ーー シー ーーー ン ーー 


mm hm mm im mmm 


FUNCTION Gets$ 
Gets$ = Fgcets$(0) 
END FUNCTION 


ーー ーーー ーー ュー ーー ーー ーー ディ ョ ーーー レーーー ラ ビビ シン デン ナッ ーー シ ン デ メ テ ーー ビシ ーーー ビシ ンー ビョン ョ ー ニ ビィ ョ ーー 


ーー 


SUB Lscck (ld%. Bytc&. Modc%) 
lniregs.bx = Hd% 
Inregs.cx = Bytc& Y II0000 
Inregs.dx = Byte& MOD &HI0000 
Inregs.ax = &I4200 OR (Mode% AND &HFF) 
CALL interrupt(&H21. Inregs, Outregs) 
END SUB 


ii 


* を ファ イル の オー プ ブン * 


ーー 


FUNCTION Openh% (Path$, Modc%) 
Path$ = Path$ + CHR$(0) 
Inregs.dx = SADD(Path$) 
Inregs.axX = 介 3D00 OR (&lHFF AND Modc%) 
CALL interrupt(&H21. Inregs, Outregs) 
IF (Outregs.flags AND &l1) = 1 THEN 
Openh% = -1 
PSE 
0penh% = OuLTepS.aX 
END IF 
END FUNCTION 
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ニニ ーー ニニ ーー ニー ーー ーー ーー EE 


SUB Putc (4%  Hd%) 
buff%(0) = 
b = Writeh(buff%(), 1, Ild%) 
END SUB 
* 棟 港 出 力 へ の 1 文字 日 カ + 
SUB Putchar (d%) 
Putc d%, 1 
END SUB 
* 出力 へ の 1 行 カ - 
SUB Puts (24$) 
Fpits a$. ! 
FND SUS 
# コキ * 
FUNCTIONR Readh% (buff%(), Byte%, Id%) 


Inregs.dx = VARPTR(buff%(0)) 
ltrCgs.cx = Byto*% 
Inregs.bx = d% 
Inregs.aX = &HH3F00 
CALI jnterrupt(&H21. Inregs, Outregs) 
IF (Outregs.flags AND &ll) = 1 THEN 
Rcadh% = -] 
ELLSE 
Koadh% 
EWD【『F 
END_ FUNCTION 


= UutrTCgS.aX 


ニー ュー ーー ーー ニー ーー ニー バー 


= mm Emmmr hm msnr ms me = PR Sm hm hm hm mmm mee mom mm ーー = = mm ニニ = = 二 =m = 


FUNCTION Writeh% (buff%(). Byte%, Ild%) 
lnregs.dy = VARPTR(huf「%(0)) 
ITCPS.CX = Byte% 

Inrcgs.bx = Hd% 

lnregs.aX = &H4000 

CALL interrupt(&H21. Inrcgs, 

IF (Outregs. ML ra &H1) = 
Writeh% = 


OutregS) 
1 THEN 


ELSL 
Writeh% 
END IF 
END FUNCTION 


= OUtTeES. 4X 


標準 入出 力 と フィ ル タ 
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|] ライ ブラ リ の 使用 法 


A>QB /L[ ン | 


で QB を 起動 し て お き , STDIO.BAS を 作 
ッ ク ・ ラ イブ ラリ STDIO.QLB を 作成 し ます . 

この ライ ブラ リ を 利用 し て ユー ザ ・ プ ログ ラム を 作成 する に は , 次 の よう に 起動 し 
ます 。 





し 。 





し / ラ イブ プラ 





リ 作成 | で 


A>QB /LSTDIO| ン 





ユ ュ ユーザ: ブロ グラ ム で は 。 ライ デラ チラリ の ヴ プロ ジー ジャ の 型 宣言 を 桁 っ て 
STDIO.H を イン クル ー ド し ます . 


介 ユ ー ザ ・ プ ログラム 
や INCLUDE : STDIO HH 


環 


a9。 = Getc(Hd%) 





注 ) こ の STDIO. OLB を 使用 し て ユー ザ ・ プ ログ ラム を 作る 場合 , 以下 の 点 に 注意 し て くだ さい . 
・ ユ ー ザ ・ ブ ログ ラム は 0B 環境 下 で な く コ マン ド ・ ラ イン か ら 実 行 し て くだ さい . 
・ ユ ー ザ ・ ブ ログ ラム の 実行 を ^C で 強制 終了 し な いで くだ さい . 以後 暴走 し て し まい ます . 





ファ イル ・ ハ ンド ル Hd% で 示す ファ イル を クロ ー ズ し 、 ラ ァイル ・ ハ 
ンド ル を 解放 し ます . 
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式 Createh9。 (Path$。 Atr%) 正常 : ファ イル ・ ハ ンド ル , 





| エラ ー: 一 1 
ファ イル 属性 
ファ イル 名 


機 能 Path$ で 示さ れる ファ イル を , Atr% で 示さ れる ファ イル 属性 で 新規 
 。 。 作成 し ます . 同名 の ファ イル が あれ ば その ファ イル は 空 に され ます . 
ファ イル 属性 を 決定 する ビッ ト は 以下 の と お り で す . 








5 
・ リー ド / ラ イト 

保 リー ド オ シン リー 

人 存 ル 

ヒ ル 

" ゾ 

ト ・ 通 常 フ ァイル 


すす キー た や イル 
・ ボリ ュー ムラ ベル 
・ サ プ ディ レク トリ 


ビッ ト 0-2 が 一 般 フ ァイル の 属性 を 決定 し ます . ビッ ト 3 が セッ ト 
(1) され る と ボリ ュー ムラ ベル と みな され , ビッ ト 4 が セッ ト 1) さ れる 
と サブ ディ レク トリ と みな され ます . ファ イル 属性 の 例 を 以下 に 示し ま 
且 


00H … リ ー ド プラ イト 属性 の 通常 ファ イル 
01H … リ ー ド オン リー 属性 の 通常 ファ イル 
02H … リ ー ド グラ イト 属性 の 隠し ファ イル 
04H … リ ー ド ノラ イト 属性 の シス テム ファ イル 
06 帳 … ボ リョ エー な ラベル 

10H … サ ブ デ ィ レ クト 


Hd% = Createh%( "ABC.BAS", 1) 
。 … ABC.BAS と いう 名 の ファ イル を リー ド オ ン リ ー 属 性 で オー プン し , 
ファ イル ・ ハ ンド ル を Hd% に 返す . 
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11 








エラ ー : 一] 
オー プン され て いる ファ イル ・ ハ ンド ル 


Hd% で 示さ れる ファ イル ・ ハ ンド ル の ファ イル を アク セス する た め の 
別 の ファ イル ・ ハ ンド ル を 新規 に 作成 し. その ファ イル ・ ハ ンド ル を 返 
し ます . これ に より 同一 ファ イル を 2 つの 異な る ファ イル ・ ハ ンド ル で 
党 理 で きる よう に な り ま す .。 し か し , 一 方 の ファ イル ・ ハ ンド ル で リー 
ド / ラ イト する と , 他方 の ファ イル ポイ ンタ も 同じ 位置 に 移動 し ます . 
ン ドル の 2 重 化 ほ は 10 リグ イレ クト を 行う プロ グラ ム で よく 使い 
講 ず す 、 





ーー--/* キ ハン ドル の 2 生化 と 1 だ の oO リダイレクト を /--- 
「-$INCLUDE: stdio.h 


ld% = Createh("redircct.txt", 0) 

Stdout% = Dup(1) テ 一 ハン ドル 1 を Stdout 9% に 保存 

Flag% = Dup2(lld%.。 1) ーーーーーーー ハ ンド ル 1 を ファ イル へ リダイレクト 
Puts Hello 1" 

Closeh Hd% 

Flag% = Dup2(Stdout%. 1) ーーーーー ハン ドル 1 を 再び Stdout % に 復帰 
Puts llello2 





… まず ドラ イブ B に redirect,txtt と いう ファ イル を オー プン し て お く . 
さて , Puts は スク リー ン ( 標 準 出力 : ハン ドル 1) へ の 出力 だ が , この 
ファ イル の ハン ドル を 標準 出力 に 2 重 化 す る こと に より , スク リー 
ン へ の 出力 は , ファ イル redirect.ttt に リダイレクト され る . な お , リ 
ダイ レク ト に 先立ち , 標準 出力 1 の ハン ドル を コピ ー し て 保存 し て お 
き , リダイレクト 処理 終了 後に 再び 復帰 させ る . 以上 に より この プロ 
グラ ム の 1 番目 の Puts は ファ イル へ の 出力 , 2 番目 の Puts は スク リ 
ー ジ へ の 田 力 と な る 、 


上 : 入出 力 と フィ ル タ 


/ 








[- 2 重 化 さ れる ファ イル ・ ハ ンド ル 


も と の ファ イル ・ ハ ンド ル 


| 
| 
I 
H 
ご 
EL 
円 
) 
SS 
Cd 
) 
記 
で 
あ 
べ 
し | 
の 上 
ie 
ロ 





Hd1% で 示さ れる ファ イル ・ ハ ンド ル を Hd2% で 示さ れる ファ イル ・ 


2 つの ププ ァ イル ・ バ ホン 
す 39 フ ア テイ ルド ハン ドル が す 


* 聞 IN 


コピ ビー し, Hd1% の 指す ファ イル を 。 


ドル で 管理 で きる よう に し ます . Hd2% 


オー プン され て いれ ば , その ファ イル は クロ ー ズ され ます 


2 ドル 1 


で ( 








TS 
は 
8 


We 
ai 
0 


Es 
1 Ft 
EL 。 Ns SS 9 











0 








1 Dr 

ee er en Tr 
3 2 
NSR 


0 





ERO 
NO 
CCA 
2 5 3 E 
ee 二 





5 
ST 


8 


km 
me 








Pr 


1 1 
ON 
8 2 


est 
肖 寺 0 





et ma 
5 


DE 


RI 


3 
So 
KA 


2 














文字 列 
ー オ ー プ ン さ れ て いる ファ イル ・ ハ ンド ル 


Fgets$(Hd%) 一 入 力 し た 








LE ロロ 宮 ド を リード し ます 。 
ファ イル ・ エ ンド で ヌル 文字 列 (") を 返し ます . 


Hd% で 示さ れる ファ イル ・ ハ ンド ル の ファ イル か ら . 


は , 層 HA 


ーー-/* キ ファ イル か ら 人 入力 */--- 





"stdio.h' 


・$INCIUDF 


: T$ 
Openh(f$. 0) 
a$ = Fgets$(ld%) 
DO WHILE a$ < 


INPUT Filc Name" 


ld% 


Puts a$ 
a$ 


cts$(Hd%) 


Fg 


LO00『 


表示 する . 


ーー 
ーー 


ファ イル か ら | 行 単位 で リー ド し , スク リー ン (〔 


あり 











Getc%(Hd%) 入力 し た 


字 の アス キー コー 
ル ・ エ ンド : 一 ] 





EE ン さ れ て いる ファ イル ・ ハ ンド ル 


Hd% で 示さ れる ファ イル ・ ハ ンド ル の ファ イル か ら 1 文字 を リー ド 
ます , 返さ れる 値 は アス キー コー ド で す . ファ イル ・ エ ンド で 一 1 を 返 


ます 。 


ーーー-/* 1 文字 上 単 位 の ファ イル 人 出力 /--- 


-$INCLUDE: stdio.h 


ldij% = Openh("a.bas", 0) 

ド dj 兄 = ーー] THEN 
PRINT "Can {t file open" 
STOP 

ド END IF 


lldo% = CreatehCb.bas", 0) 
IF lldo% = -1 THEN 
PRINT "Can t file create 
STOP 
END Il『 


a% = Getc(ldi%) 

DO WILE 別人 ② -] 
Putc a%, do% 
a% = Getc(lldi%) 

00P 

Closeh di% 

Closeh lldo% 


…  Hdi で 示さ れる ファ イル か ら | 文字 入力 し , 
Hdo で 示さ れる ファ イル に 書き 出す . 
これ を ファ イル ・ エ ンド まで くり 返す . 
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Getchar96 標準 入力 か ら 入力 し た アス キー コー ド 
ファ イル ・ エ ンド : 一 1 


標準 入力 か ら 1 文 字 を リー ド し , その アス キー コー ド を 返し ます . 
プア イル = エン ド で ー1 を 返し ます 
ーーー/* 標準 入出 力 ーーー 


「$INCLUDE: stdio.h 


a% = Uetchar 

DO _ WHILE a% くぅ -1 
Putchar a% ぁ 
a% 

00P 


引 


(ietchar 





Getkey?%% ー キ ー ボ ー ド か ら 入 力 し た アス キー コー ド 


フィ ル タ 型 の ブロ グラ ム を 利用 し て いる 場合 , stdin や stdout は ファ 
ィ ル な ど に リダイレクト され て いま す ,。 も し, この と き 。 フィル タ の 中 
で キー ボー ド か ら キ ー 人 入力 を 受け 付け た り ,。 メッ セー ジ を スク リー ン に 
出力 し た いと き は 困り ます . 

Getkey% は , stdin が ファ イル に リダイレクト され て いて も ,。 キー ボ 
ー ド か ら の 1 文字 入力 を 行い ます . 

Getkey% で は , デバ イス con を 独 目 に オー ブン し, Dup 関数 に より 
ハン ドル の 2 重 化 を 行い , stdin と con を うま く 切 り 換え ます . その 手 
順 は 次 の と お り で す . 


① デ デバ イス con を オー プン する . 

② stdin (ハン ドル 0) を 退避 する . 

③con を stdin に コピ ー す る . これ に より , stdin か ら の 入力 を 行 
ら て いる アァ シッ プション は nn か ら の 入力 に な る 。 

④ con か ら の 入力 を 行う . 

⑤ 退 避 し て あっ た ハン ドル を stdin に 戻す . これ に より stdin は 前 
の リダイレクト 先 に 戻さ れる . 

⑥) オ ー プ ン ・ フ ァイル の クロ ー ズ 、. 
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std ーーーーーーーーーーーーー] 


stdin か ら 入 力 を 
行っ て いる ファ 


ァ ッ ク シ ョ ン 








Gets$ 一 標準 入力 か ら 入力 し た 文字 列 


標準 入力 か ら 入 力 し た 1 行 (行末 は CR-LF) を 文字 列 と し て 返 
す CR-LF コー ド は 文字 列 の 中 に 入っ て いま す . 





Lseek d9%, Byte&, Mode% 


[移動 モー ド 
ー 移 動 量 ( バ イト ). 倍 長 整数 
ファ イル ・ ハ ンド ル 


Hd% で 示さ れる , ファ イル ・ ハ ンド ル の ファ イル の 現在 位置 を , 
Byte& で 示さ れる バイ ト 数 移動 し ます . 移動 の 基点 モー ド に は 次 の 3 
つが あり ます . 


… フ ァイル の 先頭 か ! 
… フ ァイル の 現在 位置 か 
… フ ァイル の 終端 か 』 


移動 バイ ト 数 が 正 な ら フ ァイル 後方 へ の 移動 , 負 な ら 前 方 (先頭 方 向 ) 
へ の 移動 と な り ま す . 


Lseek 96。 0, 2 
… フ ァイル 現在 位置 を ファ イル 終端 に 移す . 


標準 入出 力 と フィ ル タ 


4 





ーー ファ イル ・ ア クセ スモ ー ド (0…r, 1…w, 2…r/w) 


ファ イル 名 


| 
| 
IN 
則 
K 
ーー 
ンー 
1 
ン 
3 
ie 
ト 、 
ト 
トト 
u 
SS 
ゆ ① 
届 
〇 
ー 
の 
人 
ォ + つ 
① 
止 
べ 
和 ms 
「e 
①) 
の 
〇 





だ 


し ます 
上 定 


反 


も ] 


ル を 


下 の 


ン 
人 炊 


電 


レ 


エーーーー== 


, その ファ イリ 
7 グ セス 


問 


の 


プ 
プア ティ イル 


Fat で 示さ れる 6 プ ァ オル を WMode の で 示 き れる デア デ クセ メキ ー 


オ 





し ます 


ッ ト で 】 


1 


ビ 


ド は 


モ 


倫 ファ イル ・ ア クセ スモ ー ド 





0000 リー ドモ ー ド 


000 コシ パチ デブ プル 
001 リー ド / ラ イト 不可 


010 フライト 不 可 
011 リー ド 不 可 


0001 ライ トモ ー ド 
0 ルー ドリ / ラ 


イト モー ド 


0 不可 な し 


10 


ツ ッ ト 


ド 


すす ン ペ ルッ 


度 さ れる 


「 評定 …』 


け 


受け 


受 


間 
1 


博 報 カ 


の 
子 ブ ロ セ ス か ら の 情報 カ 


プロ セス が から 


- キ 


渡さ れ な い 


可 


e 


] 





ーー 
ンー 
へ \ 
、 士 
・ K 
ミト 
ヾ 
ト 選 

ss h 選 

ゃ JR 

ぶ 。 

〇 

2 

2 

品 








出力 し ま 


ピコ 
ーー 


a% で 示さ れる 文字 を ファ イル ・ ハ ンド ル Hd9% の ファ イル [| 
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| 
| 
征 
く 
ト 
い 
KK 
NN 

。 圭 

S 」 

Q 

。 

〇 

1 つ 

コ 

ロロ 





加 
示 


され る 文字 を + 


ノ 


WW 


d26 て 





%) リー ド で きた バイ ト 数 . エラ ー : 一 1 


L- フ ァイル ・ ハ ンド ル 
リー ド す る バイ ト 数 


て う 
TE 
SS 
) 
『 
SS 
= 
っ う 
ここ 
SS 
間 
を もう 
em 
名 ) 
自 軸 








| 


リー ドッ ッッ アア 


され る ファ イル か ら , バッ ファ buff%( )1 


店 


LA 


こ Byte%> 
バイ ト 数 


y 


N 


タ を リー ド し ます . 関数 戻り 値 は リー ド で き 


の 値 が 0 な ら フ ァイル ・ エ ンド を 意味 し ます . 


恒 


の ) プ 








イト 数 . エラ ー : 一 1 


| L- ラ ァイル ・ ハ ンド ル 


4 ド で きた パ 


ャ ー 


ee 
< 
の 
に 
< ヾ 

① 
ォ つ 

ーー 
呈 
ー へ 
ーー 
< ヾ 
た 
- 〇 
ーー 
べ 
ーー 

員 
計 
テ 





ライ ト す る バイ ト 数 


デー タ が 入っ て いる バッ ファ 


| 


OM プア butffi 9 ( ) の Byte% バ イ ト の デ 


アイ オッ レ 人 ダイ ト し ます. 


され る フ 
で す . 


小 


を 。 HHd% で 


ES 
9 
_N_ 
pd 
和 
+、 
パリ 
ソ 
 。 
信 、 
9 
思 
応 
RS 
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第 4 草 標準 入出 力 と フィ ル ダ 


標準 入出 力 ラ イブ ラリ STDIO を 利用 し た 。 各種 フィ ル タ 型 プロ グラ ム を 紹介 し 
生 。 


行 番号 付加 フェ 


テキ スト を 1 行 単位 で リー ド し , 4 桁 の 行 番号 を 先頭 に 付加 する フィ ル タ で す . 
A>TYPE A.BAS 」 LINE|I ン | 


の よう に 使い ます . 









欠 フ ィ ル タ LINE 
ーーーー/* 行 番号 付加 フィ ル タ #/--- 
"WINCLUDE: 'stdio.h 


Lmum = | 


a$ = Gets$ 

DO WIILE a$ <> 
Puts RIGHTS(0000 -+ LTRIMS(STRS(Lnum))」。 4) キー 
Lnum = Lnum + 1 
a$ = ets$ 

L00P 
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タブ を スペ ー ス に 換え る フィ ル タ 


タフ プ ・ コ ー ド (&H09) の 扱い は スク リー ン , プリ ンダ な どの デパ イス に より 異な る 
こと が あり ます 。 

だ と えば, a.c と いう ファ イル を type し , prn へ リダイレクト し た 場合 、 プ リン 
タ 側 で タプ 位置 の セッ ト ア ッ プ が な され て いな けれ ば , 次 の よう に タプ ブ ・ コ ー ド を 無 
代 し て し まい ます . 





#inClude glib.h^ 


vo1d majin() 

EN ま 当 。 導 ) 

ginit(): screen(3.0.0.1): cls(3): 

for (n=3:n<=9:n++) ( 
setanglc(0.0)・: 
setpoint(300.0.200.0)・ 
for (j=0:j<nij++) [ 

mOVe(50.0,1)・: 

Lurn(360.0/n) ・: 





そこ で , タブ ・ コ ー ド を スペ ー ス に 換え る フィ ル タ TABSPC を 以下 に 示し ます . 


W フ ィ ル タ TABSPC 
、 電 だ 7 生 Nm 起 連 天 み ラオ ゆみ 科 --> 
-$INCLUDE: stdio.h 


Count = 0 
c% = Getchar 
DO WHILE c% <> -] 
「 ド c% = 基 上 9 THEN 
FOR ij = 8 - Count MOD 8 TO 1 STEP -1 
Putchar ASC(~ “) 
Count = Count + | 


NEXT 
ELSE 

Putchar c% 

Count = Count + Il 
END IT 


IF c% = &ID OR c% = &HA THEN Count = 0 
C% = (petchar 
L00P 
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第 4 草 標準 入出 力 と フィ ル タ 

テキ スト の 1 行 は LF(&HA) で 終わ っ て いる も の と し , Count で その 行 の 何 文 字 

目 に いる か を 示し ます . タプ 位置 は 8 文字 間隔 で と る も の と する の で , 必 H9( タ ブ ・ 
コー ド ) が 現れ たら, (8-Count MOD 8) 個 の スペ ー ス を お ぎ な うこ と に し ます . 


免 タ プ を スペ ー ス に 変換 





\ーーーー ッ ーーーー デ ご 
(8-Count MOD 8) 個 の スペ ー ス 


ファ イル A. じ の 内 容 を フィ ル タ TABSPC を 通し て プリ ンタ に 出力 する と ,。 タプ 
位置 が セッ ト ア デップ され て いな く て も 次 の よう に 正常 な 出力 が 得 ら れ ま す . 


A>TYPE A.C ! TABSPC[ フ |] 





ーー モー ーー ーー ーー … ー コ = "mr = ニニ ーー = モーーー テ ーーー ニー ーーーーー 一 = ーーーー 一 ーー 一 







#include glib.h" 


void main() 








1 も WE 

ginit(): screcn(3.0.0,1): cls(3): 

for (ns3:n<=9:n++) [| 

setangle(0.0): 

setpoint(300.0.200.0)・ 

for (j=0:j<n:j1++) [ 
move(50.0,1): 
turn(360.0/n) : 


2 


モア ・ フ ィ ル タ 





フィ ル タ MORE は , 


リード し だ デキ スズ スト を 1 画 (28 行 


まで 待ち , キー 入力 が あれ ば 次 に 進む と いう も の で す . 


この よう な 場合 


り ます 。 
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天 フ ィ ル タ MORE 


と うし て も 1/O リ ダイ レク ト さ れ な い キ ー 入 力 関数 が 必要 に な 


ーーー/ 事 モデ ェ ュ ア ォ ィ リ ルル タ まま /-ー- 


-$INCLUDE: 


LU = ] 


4$ = 


Gets$ 


DO WIILE a$ < “" 
Puts a$ 


Ln 


I『 Lnum = 
Puts 


ビー 
本 = 


END IF 


4$ = 
00P 


AtYpe b:stdio. bas 


Gets$ 


Lum † | 
24 THEN 
ーーーー More 上 it AnyKey ! --- 


_stdio.hr' 


1 


+ CHR$(&HD) + CHR$(&IIA ) 
GEK ま om ニーーーーーー 必 0 り ダ イレ クト きれ な が もい キー ルナ 


Lnum = | 





| more 


し 和志 較 WI 


ーー 一 一 ーー ーー ーー 一 一 一 ーー 一 ーー ーー ーー ーー ーー ーー ーー ーー ーー 一 一 ーー 一 ーー ーー ーー ーー ーー 一 フー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ニー ーー 一 


DECLARE 
DECLARE 
DECLAKRE 
DECLANE 
DECLANE 
DECLARE 
DECLAKE 
DECLARE 
DECLARE 
DECLARE 
DECLAKRE 
DECLARE 
DECLARE 
DECLARE 
DECLAKE 
DECLARE 
DECLAKE 


-$INCLUDDK ・: 
ーー- More Hit AnyKey ! 


SUB Lsecek (Hd%. Byte&, 


FUNCTION 
FUNCTION 
FUNCTION 
SUB Putc 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 


Modc%) 
Gets$ () 
Fgets$ (Hd%) 
Getc% (Hd%) 
(a%. Hd%) 
Dup% (ld%) 
Dup2% (lld1%. 
Getkey% () 
Writeh%(buff%(). Byte%. 
Creatch% (Path$, Atr%) 
Openh% (Path$, Mode%) 


lld2%) 


Hd%) 


SUB Closeh (Hd%) 


FUNCTION 


Readh% (buff%(), Byte%, Hd%) 


SUB Putchar (d%) 
FUNCTIN Getchar% () 


SUB Fputs (a$. 


SUB Puts 


dd%) 
(a$) 


.YbinYQOB.BI 


More メッ セー ンジ 





ーー 





) 全 が し 。 キー 入力 が ある 


昌 






















プリ ンタ の 制御 コー ド 


プリ ンタ に 特殊 な 制御 コー ド を 送る こと で 。 プリ ンタ の 印字 モー ド を 制御 する こと 
が で きま す . 

プリ ンタ の 制御 コー ド は 機種 に より 異な り ま す が , ここ で は , NEC の PC - 
PR101, PC-PR201 系 の 制御 コー ド に つい て 説明 し ます . 

制御 コー ド は , 1 バイ ト で 表 さ れる 基本 制御 コー ド と , 2 バイト 以上 で 表 さ れる 拡 
張 制 御 コ ー ド に 大 別 で きま す . 





@ 基 本 制御 コー ド 


バッ ファ の デー を 印字 し . 帰 


拡大 指令 
拡大 将 際 


水 平 タ プ 位置 へ 移動 

] 行 改行 

垂 直 タ ブフ 仁 置 へ 移動 

本 MCM 
_ VFU の セッ ト 開始 
| VFU の セッ ト 終 了 

VFU の 実行 


デー タ を キャ ン セ ル 





| 外字 の 登録 デー タ 終 了 


供 拡 張 制御 コー ド 





HS パイ カ ・ モ ー ド 


ESC 


N 
ESC H HD パイ カ ・ モ ー ド 
ESC Q | シン アン スッ モード 
| ESC 上 E | 正 全 = 所 
| 56 | グ 提 ボ 一 み ョ ナチ ルモード 
ESC K 滞 字 モー ド ( 横 印字 ) 
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ES 1 
















氷 ABn, に *nszEO[ 
ESC 填 ABn」…nz。EOT 
ESC | 





enin> 






Rn。nin。C 


ESC Snznznins デ ー タ 
ESC Il ゲ 

ES // 

ESC Vns nz ni P。 広 

ESC  Wn。 nz ni n。 太 放 
ESC Un。 ni ni H。 記 7 が の 記 
F ns nz ni no 








ESC 
ESC M 






ESC 
ESC Lnrznihi。 
/m。 「1i「lo 


| スク リプ ト 解 除 





ESC ( 2 び 」 の 0o, ゆ 太 人 
BSOL ) の 2 ] の 0 選 太 …。 
Z 


第 5 草 プリ ンタ ・ イ ンタ ー フ ェ ー ス 


美 字 モー ド ( 縦 印字 ) 


カタ カナ モー トド 
ひら が な モー ド 








スー パス クリ プ ト 文 字 指 定 
サ プ ス クリ プ ト 文 字 指 定 












滞 字 半角 縦 印字 指定 
字 半角 縦 印 字 解 除 
半角 組 文字 縦 印字 指定 
外字 の ロー ド (I6X16 ド ッ ト ) 
外字 の ロー ド (24X24 ド ッ ト ) 
ANK 文字 の ロー ド 
拡大 率 指定 

キャ ラク タ ・ リ ピー ト 
強調 文字 指定 

強調 文字 解除 

アン ダラ イン 開始 
アン ダラ イン 終了 
ドラ フト 指定 

ドラ フト 解除 

n ド ッ ト ・ ス ペー ス . 


























n は | 8 の 数 値 


8 ビッ ト ・ ド ッ ト 列 EH 字 
I6 ビ ピッ ト ・ ド ッ ト 列 印字 
24 ビ ッ ト ・ ド ッ ト 列 印字 

8 ヒッ ト ・ ド ッ ト 列 リ ビ ピート 
I6 ビ ヒッ ト ・ ド ッ ト 列 リヒ ビー ト 
24 ビ ッ ト ・ ド ッ ト 列 リ ビ ー ト 
ドッ ドア トド レシ シグ 
















5 和合 3 年 ー 
ネイ ティ ブ ・ モ ー ド 
水平 タプ の セッ ト 
水平 タプ の クリ ア 
水平 タプ ・ オ ー ル ・ ク リア 

印字 開始 桁 の 設定 (トレ フト ・ マ ー ジ ン ) 
Eh 字 終 了 桁 の 設定 (ライ ト ・ マ ー ジ ン ) 
片方 向 印字 モー ド 指定 
片方 向 印 字 モ ー ド 解除 

1/6 イ ンチ 改行 モー ド 

I/8 イ ンチ 改行 モー ド 
N/120 イ ンチ 改行 モー ド 

順 方 向 改行 モー ド 

逆 方 向 改 行 モ ー ド 

初期 状態 に リセ ッ ト 

滞 字 文字 幅 3/20 イ ンチ 

獣 字 文字 幅 |/5 イ ンチ 
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プリ ンタ ・ イ ンタ ー 
フェース ・ ラ イブ ラリ 


の ブサ アガ 位 衝 メー トド を 章 所 し た 。 フ リン シダ ・ オ シダ ター プ ェ ー え ェ ラ イ 
の リ を 紹介 し ます 





証 PRINT の 問題 点 


LPRINT を 用 いた 出力 で は , 次 の よう な 間 題 点 が あり ます . 


・ ド ッ ト 列 印字 を 行う 場合 は 。 0 255 の コー ド を すべ て デー タ と し て 扱わ な けれ ば 
な ら な い が , LPRINT だ と その 中 の コン トロ ー ル ・ コ ー ド に 属す る も の は 特殊 機能 
と し て 働い て し まう . 

・ LPRINT に よる 出力 で は , WIDTH LPRINT で 設定 し た 文字 数 が プリ ンタ ・ バ バッ 

ァ に 出力 され る と, 自動 的 に 改行 が 行わ ん れる. プリ ンタ 制御 コー ド も 1 文字 と し 
て カウ ント され る の で , ブリ ンタ 制御 コー ド を 含め て 文字 を 出力 し て いる 場合 は , 
穫 わ ぬ と ころ で 改行 が 行わ て し まう こと が ある 。. 


この よう な 場合 に は LPRINT を 使わ ず , プリ ンタ へ の 直接 出力 を 行う Lputc/ 
Lputs を 使い ます . Lputc/Lputs は , ここ で 紹介 する プリ ンタ ・ イ ンタ ー フ ェ ー ス ・ 
ライ ブラ リ の 中 で 作成 し て あり ます . 


天 PRINTIER.H 


1 mr mm mem emm mem mi mm mm mm mm 


DECLARE SUB Dot16 (dat%(). n$) 
DECLARE SUB Gcopy () 
DECLARE SUB Lputc (c%) 
DECLARE SUB Lputs (a$) 
DECLARE SUB Rmargin (n!) 
DECLARE SUB Lmargin (n!) 
DECLARE SUB Lpmode (c$) 
DECLARE SUB Undline (a!) 
DECLARE SUB Script (flag!) 
DECLARE SUB Pitch (n!) 
DECLARE SUB IIfeed () 
DECLARE SUB Iliragana (a!) 
DECLARE SUB【Kanji (a$) 
DECLARE SUB Large (a!) 
DECLARE SUB Page (n!) 
DECLARE SUB Settab () 
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る PRINTER.BAS 


上 が シア ウ ャ 


ーー 


DECLAKE SUB Dot16 (dat%(), n$) 
DECLARE SUB Gcopy () 
DECLARE SUB Lputc (c%) 
DECLARE SUB Lputs (a$) 
DECLARE SUB Rmargin (n!) 
DFCLARE SUB Lmargin (n!) 
DECLARE SUB Lpmodc (c$) 
DECLARE SUB Undline (a!) 
DECLARE SUB Script (flag!) 
DECILARE SUB Pitch (n!) 
DECLARE SUB Hfeed () 
DECLARE SUB Hiragana (al) 
DECLARE SUB Kanji (a$) 
DFCLARE SUB Large (a!) 
DECLARE SUB Page (n!) 
DPICLARE SUB Settab () 


ーー immam mm mmmh mmmi ms mmm mmmm mmm pmrimmms mm sshh mmm = = mm 


SUH Dot16 (dat%(), hn$) 
Lputs CIIRS(&IB) + キ 1" + mn$ 
FOR k = 1] T0 VAL(n$) 
Lputc dat%(k) MOD 255 
Lputc dat%(k) Y 256 
NEXI Kk 
END SUM 


PP mm mami mm mh Ph Pamah mmmi mmmi mm = mamsmm msh :== ニ . = 


SUB Gcopy 
lputs CHRS(&IIIB) + ご T16“ 
Lputs CHR$(&HIB) +D" 
FOR x =  &H4F T0 0 STEP -1 
Lputs CIIRS(&HIB) + “S0400"^ 
FOR y = 0 TO 399 
DEF SEG &HA800: a 
DEF SEG &IHBO00: 
DEF SEG = &HB800: c 
Lputc (a OR b OR c) 
NEX] y 
Lputc &ID: Lputc WWHA 
NEXT x 
Lputs CHR$S(&HIB) + “AT 
Lputs CHR$(&HIB) + MT 
END SUB 


由 
旧 


PEEK 
PEEK 
PEEK 


旧 


C デ 


イン ター フェ ー ス ・ ラ イブ 


ーー 


和則 
コピ ー・ モ ー ド 


8 ビット ドット 対訳 
(x + Y キ * &I50) 

(x + y * &H50) 

(x + y * &H50) 

GX イ 」 


ノー マル 改行 幅 
通常 モー ド 


Blue 
Red 
(recn 
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Hfeed 
LIPRINT CHR$(&HC) 


) SUB 


大 大 人 


mm mmm hmm hm Ps = mm mml hm mm mmmh ms msh ami mam = mm = 


上 liragana (a) 
I ド a = 1 THEN 

LPRINT CHR$(&HIB) + & : _ 0n 
お LSE 

LPRINT CIHRS(&H1B) + バ $"・ 、 」 問 加 ま 
END IF 
SUB 


END 


ドコ 


Kanjii (a$) 
FOR k = 1 TO KLEN(a$) 
c$ = KMID$(a$. k, 1) 
b$ = JISS(c$) マ ーーーーJIS コー ド 
IF LEN(b$) = 4 THEN =ーーーーーー 一 一 全角 文字 の と き 
Lputs CHRS(&HIB) + ~【" 縦 モ ー ド 
Lputs CIIRS(VAL(T&h" + LEFT$(b$, 2) ) ) ニ ーー 上 位 バ イト 
Lputs CIHR$(VAL("&h" + RIGITS(b$, 2) ) ) 一 下位 バイ ト 
ELSE 
Lputs CHR$(&HIB) + 晶 " 
Lputs c$ 
END IF 
NEXT k 
Lputs CHR$(&HIB) + “H" 
SUB 








通常 の 印字 モー ド 


し 時 8 当 "OO 


LaTge (a) 
IF a = 1 THEN 

LPRINT CHR$(&IHIE) : _ On 
EbOb 

LPRINT CHR$(&HF) : _OfT 
END IF 
SUB 


mm mmm mmm mm ニー ーー 一 一 ニー ーー ニーー ーー ューー ぬ ? り ーー 一 一 一 - 一 還 二 


トー 3 3 3 EE > > 呈 >、 >>  > > 


_Lmargin (n) 


mm = in MOD 100 


第 5 章 ブ プリ ンタ ・ イ ンタ ー フ ェ ー ス 


LPRINT CHRS(&RHIB) + トル 「:| 











LPRINT CHRS(n Y 100 + ASC("0")): I00 の 位 

LPRINT CHRS(m Y 10 + ASC("0")): ニー 10 の 位 

LPRINT CHRS(m MOD 10 + ASC('0")) : | の 仁 
END SUB 


こ ニュ ニョ ーー ニニ ーー ニーーーー ニ ーーーーーーーーーーーーーー 


EE 


SUB Lpmode (c$) 
LPRINT CIIR$S(&HIB) : 
LPRINT UCASE$(c$) : 
END SUB 


ーー ーー ーーー ーー ーー ーー ーー 


mm 


を 是 接 プリ ンタ 出力 * 


ーー ーー 一 一 一 一 一 一 ーー 一 ーー 


SUB Lputc (c%) 
WIILEF (INP(&H42) AND 4) <> 4 
WEND 
0UT &H40. c% 
0UT &H46, 14 
0UT &H46, 15 
END SUB 


IEEE 


* 貞 接 文字 列 出力 * 


生生 _ 5 生 科 8 較 EE 


ーー 


SUB Lputs (a$) 
FOR k = 1 TO LEN(a$) 
c% = ASC(MID$(a$. k, 1)) 
putc c% 
NEXT k 
END SUB 


ーー 


ーー 


SUB Pagc (n) 
LPRINT CHR$(&HID) : " 8 も art CO0dGc 
LPRINT CHR$(&Il41) + CHRS(0) : ー T0『 
FOE # = 』 4U Rn = 1 
LPRINT CIIR$(0) + CHR$(0): 
NEXT 1 
LPRINT CHRS(&H43) + CHR$(0) : 。 Bottom 
FOR j = 1 10 66 - In 
LPRINT CIR$(0) + CHR$(0): 


NEXI i 

LPRINT CHR$(&H41) + CHIRS(0): _ TOF 

LPRINT CHR$(&HIE): _ Stop code 
END SUD 
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SUB Pitch (n) 
LPRINT CHR$S(&HIB) +T": 
LPRINT CIIR$S(INT(n) Y 10 + ASC(~0")) : 
LPRINT CHR$S(INT(n) MOD 10 + ASC ("0")): 
END SUB 


SUHB RWargin (hn) 
= H MOD 100 
LPRINT CHR$(&HIB) + “/": 








LPRINT CHR$S(n Y 100 + ASC("0") ) : さ ーー I00 の 位 
LPRINT CHRS(m Y 10 ASC("0") ) =- 0 の 位 
LPRINT CHRS(m MOD 10 + ASC("0")): ニ ーー | の 位 





ENU) SUB 


レー 還 ー 5 デー EE | EE ーー 


ーー ーー ご ーーー ビィ ョ ヶ } ね ゎ 6 シ 6R ト ーーー ーー 


SUB Script (flag) 
SELDCT CASE TLag 
CASE 0 
LPRINT CIHR$S(&H1B) + ブーs~ エキ 0": 
CASE 1 
LPRINT CHRS(&HIB) + Ss0 エキ 1"・ 
RS ド 2 
LPRINT CHRS(&HIB) + "Ss~- + "2~: 
“ END _ SELECT 
kND SUB 


mmm mm mi = 





ISUB Settab 


LPRINT CHR$(&HIB) + (009.017.025.033.041.049.057.065.073.081.089.105.113.121 " 
END SUB 


HP PT PT Pr nm mm mm mm me 


「。 時 。 0 ・ 5 Eh 8 時 時 > 1 時 8 55 ーー 5 ーー 


SUB Underline (a) 
ドド a モ 1 十 MLDR 
LPNINT CHRS(&HIB) + ト XX: 
ELS ト 
LFRINT CHRS(RH1B) 1 バツ Y |: 
END IF 
END SUB 


134 


た な - ユ ーー 1 1 * 


・ イ ンダ ター フェ ー ス 











* QB を 起動 し て お き , PRINTER .BAS を 作成 し , 
イッ クラ イブ ラリ PRINTER.QLB を 作成 し ます . 
この ライ ブラリ ず お 利用 し て ユー ザ ・ プ ログ ラム を 作成 する に は , 
ます . 


A>QB /LPRINTER 








ga ザ w ブ ログ ラム で は き は 。 ラ イプ ラリ の ププ 宮 シー ジャ の 型 二 言 を 行っ て ある 
RINTERR HH を オイ シグ クルー ド し ます 。 
⑧ ユ ー ザ ・ ブ ログ ラム 
$INCLUDE : PRKINTEKR.H 


SCTIpt 0 











Dot16 dat%( ),n$ 
ーー ドット 列 文字 列 
さ ツ ハバ パターン 配列 





dat%( ) に 格納 され て いる 16 ビ ッ ト の ビッ ト ・ デ ー タ を n$ で 示さ れる 
数 だ け 印 字 し ます . n$ は , "0013" の よう に 10 進 文字 列 で 与え ます . 
ドッ ト 列 印字 で は 。 0 ~-255 の すべ て の デー タ を その ビッ ト ・ イ メー ジ 
で 出力 し か な けれ ば な ら な を ない の で 、LPRINT で は 行え ませ ん 。 で て で こ で , 
プリ ンタ ポー ト へ の 直接 出力 を 行う Lputc( こ の ライ ブラ リ の 中 で 作成 
し て いる も の ) を 用 いて ビッ ト ・ デ ー タ を 出力 し ます . 





| 
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ーー-/* キ ドッ ト 列 印字 */--- 
「$WINCLUDE: printecr.h 
DIM dat%(12) 


FOR k = 0 TO 12 
READ dat%(k) 
NEXT k 
DATA &h2000.&h2000.&h2000.&h7000.&hf800,.&h7800 
DATA &h3fff.&h2002.&h2004.&h2004.&h0008.&h0210.&h01e0 


FOKk = ] 10 20 

dot16 dat%(), 0013" 
NEAI k 
LPRKINI 


よ よ よ よ よかよか ルド よ よ よ よ よ よ よ よ よ よ よ 





ドッ ト 数 0013 


TLTTTIWLTTT 
| 上 エト 上 上 ト 上 半 上 トー 













8 ビッ ト 





8 ヒッ ト 


@| | 1 11 ll 
111 ITIIII 
十 上 lsH け 上 上 sh HT 上 
| | | | IWlelele| | | | | 


elele I@| 
alslslalelsllslsls | 
| | | | 負 W@| 1 1 lll 
トビ 


『 
&H2000 &HO01E0 
&H2000 





400 ド ッ ト 


GCODY 





グラ フラ フィック 画 面 を プリ ンタ に ハー ド ・ コ ピー し ます . 基本 的 に は 8 


ビッ ト ・ ド ッ ト 対 


VRAM の 1 





心 グ ラフ ィ ッ クス ・ モ ー ド で ドッ ト 印 字 し ます . 
ドレ ス に 8 ビッ ト の 情報 が 入っ て お り , それ は CRT 


上 で 横 8 ビッ ト の デー タ に 対応 し て いま す . これ に 対し プリ ンタ の ドッ 
ト 列 印字 で は , ビッ ト の 並び を 縦 に し な けれ ば な り ま せん . 「 

し た が っ て , CRT の 左上 隅 か ら コ ピー を する に は , ビッ ト 回 転 な ど 
の 処置 を 施さ な けれ ば な り ま せん . そこ で 右上 隅 か ら 下 側 に コピ ー し て 


いけ ば , 図 は 90 


640 ド ッ 


VRAM の | アド レス に 
8 ビット の 情報 が 入っ 


て いる 











避 転 し ます が , 最も 単純 な 操作 で 済み ます . 
ト 7 0 | 
ey le この 方 向 で 印字 





テア ーー 層 芝 つ < ス 可 JST(i 


り の 6 9 0 OOoOOoOoOoOoO oO 


〇 
O 
ロ 
O 
O 
O 
O 
D 
ロ 
1) 
O 
O 
1) 














OFF に 設定 し ます . 





"WINCLUDE: printer.h 


Msg$ = "構造 化 : Quick Basic(2177 A ーッ 9 ) “ 


Largc (| 
, ド KITINT Msg 
Large (0) 


Hiragan 
LPRINT Msg 
liragana (0) 





Undtine (| 
LPRINT Mspg 
jidtine (0 


相生 作 : Quick Ba ご て < アイ ング ペペ エー 


構造 化 : Quick Basic( く いっ く へ ~ー し っ く ) 


レプ 人 60 


ご 








* ア ン ラ フラ う 















漢字 文字 列 を 縦 書き で 出力 し ます . 
漢字 縦 モ ー ド の 制御 コー ド は ESC t で す が , 





ESC K( 横 表示 ) モ ー ド に 設定 し て し まい ます . 


これ 放 透 つて 一 ド 
定 し て お いて も 。 MS-DOS の BIOS は 漢字 コー ドカ 





由 


7 
H 


* く れ ば , 目 動 的 に 


を そこ で ESC tt モー ド の と き は 。 シ プ ド 9 ヨコ ヨー ド で を なく 5 コー ド 


送る よう に し ます . これ で BIOS が ESC K に 切 





ーーー/* 洪 字 の 縦 印字 4/ー- 


"WINCLUDE: printer.h 


中 


Msgl$ = "Ba s ic(Quick Basic) に よる 構造 化 ブ ログ ラミ 
Msg2$ = "漢字 の 終 還 字 モ ー ド で す -^ 

Kanji (Msgl$) 

Kanji (Msg2$) : LPRINT 


一 般 文 字 は 縦 に は な ら な い . 


mmG の 一 O(Quick Basic) ロ G 禁 相 HINZ へ ヘ 
燥 任 G 吉 二 仁 リ ーー ウタ 


の 


り 換 えな く な り ま 

















・ 拡大 文 


a が 1 な ら 抜 大 文字 モー ド を ON, 1 以外 な ら 拡 ] 


字 モ ー ド ON., 1 以外 : 拡大 文字 モー ド OFF 


OFF に 設定 し ます . 


Hiragana 参照 . 


レプ トド ・ マ ー ジ ン 倍 寺 を 1 術 に 読 定 し ます . 





ーー ニーー/ キ レフ トゲ ライ ト ・ マ ー ジ ン */--- 
「$INCLUDE: printer.h' 

PRINT 0123456789 

Lmargih (3) 


Nmargin (8) 
PERINT “ABCDEFGT" 


_ 


Lmargin (0): Rmargin (80) Normal margih 


0123456789 


ADCDE 
『G 





電 


は 
| SN 
fー 


注 ) LPRINT を 用 いた 出力 で は レフ ト ・ マ ー ジ ン / ラ イト ・ マ ー: 

設定 と は 関係 な く , WIDTH LPRINT で 設定 し た 文字 数 

ンタ ・ バ ッ フ ァ に 出力 され る と 自動 的 に 改行 が 行わ れ ま 

の よう な こと を 避け た けれ ば , プリ ンタ へ の 直接 出力 
Lputc, Lputs を 使っ て くだ さい . 





2 








童 リン タタ ・ イ ンタ ター フェ ー ス 





c$ で 指定 し た E 字 モー ド に 設定 し ます . MS-DOS の BIOS は , 漢字 
コー ド ( シ フト JIS) が くる と 自動 的 に ESCK モ ー ド に 入る た め , 
Lpmode で は この ESC K は 意味 を 持ち ませ ん . 設定 で きる 印字 モー ド 
制御 文字 は 以下 の 5 つ で す . 文字 の 大 小 は 区 別 さ れ ま せん . 





N …HS パイ カ 
H …HD パイ カ 
オン プン アンス 
E … エ リー ト 
P … プ ロボ ポー ショ ナル 


ーーー-/ キ 間 子 モー ド の 





-NINCLUDE: | printer.h 


msg$ = "Hello Quick Basic ! : 構造 化 Ba s jic" 


ーー デー 
me 
し LE] 


Lnmode n : LPRINT msg$ 


Lpmode h :) LPRINT msg$ 
Lpmode q : LPRINT msg$ 
Lpmodo Cc : LPRINT msg$ 
Lpmode "p : LPRINT msg$ 
Lpmoden hr 






Hetlto Quick Basic ! : 構造 化 B as ic 
Hello Quick Basic ! : 構造 化 Ba sic 
lello0uick ssic!: 構 造 化 Ba s ic 
Hello Quick Basic ! : 構造 化 Ba 
Hello Quick Basic ! : 構造 化 Ba 









リン タ ・ ポ ボ ポート に , c% で 示さ れる 文字 を 直接 出力 し ます . 











ーー 


は 


二 
三 員 
コ 
三 


〇 
O 





リン タタ 用紙 1 枚 に 印字 する 行 数 を nm に し ます . し た が っ て , n 行 
する と 政 ペ ー ジ する こと に な り ます 。 

この 関数 で は VEU(Vertical Format Unit) を 設定 し て いま す . VEFU 
6 つの チャ ネル を 持っ て いて , 垂直 タプ 位置 , TOF 行 ,。 ボトム 行 を 
定 . や きま す . 

















VFU の 設定 
ミシン 日 
和 ーーTOF 行 ( | 行 ) 
| ペー ジ |11 イ ンチ (66 行 
ひ ー ー の 場合 
5 O ーー ボトム 行 ( n 行 ) 
O 
ーーTOF 行 (67 行 ) 
リン タ 用 紙 


TOF(Top of Form) 行 ,。 ボトム 行 の 指定 は 次 の よう に 行い ます . 


第 5 章 ブリ ンタ ・ イ インターフェース 


GS コー ド (&h1d) 
TOF 


U 
X 
X 
和 X 
X 
XX 
X 


TOF 





RS コー ド (&hle) 


この デー タ を 次 の 書式 で プリ ンタ に 出力 する と, VFU が 設定 され ま 
す 女 お 。X は 0 で も 1 で も よい こと を 意 味 し ます . 


@ VFU データ 





ペー ジ 幅 を 指定 する PAGE コマ ンド で , 
A>PAGE 50| ン | 
の よう に 入力 する と 。 プ リン タ 用 紙 の ペー ジ 幅 が 50 行 に 設定 され ます . 


ーーー/* へ "ー ジ 還 の 設定 ーー 


「-$SINCLUDE: printer.h' 


n$ ふ = COMMANDS 
IF n$ = "| OR VAL(n$) = 0 TIHEN 
PRINT ParameteT CTTOrT' 
ELSE 
Page (VAL(n$) ) 
ド EN]) 1F ド 
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改行 幅 ( 通 常 は 1/6 イ ンチ ) を n/120 イ ンチ ( 


ーーー-/ キ ピッ チ 幅 の 設定 */--- 
「$INCLUDE: printer.h 


FOR ji = | TO 25 


Pitch 人 


LPRINT “ABCDEFGHIJKLMN 
NEXT i 
Pitch (20) "Normal Pitch 


ABCDE 
ABCDEFGHIJKLMN 
ABCDEFGH1 JKILMN 
ABCDEFGIH1 JKLMN 
ABCDEFGHI JKLMN 
ABCDEFGHIJKLMN 
ABCDEFGHIJKLMN 
ABCDEFGHIJKLMN 
ABCDEFGH1JKLMN 


ABCDEFGHTIJKLMN 
ABCDEFGHIJKLMN 
ABCDEFGHIJKLMN 


ーー 


ーー 一 ーー 


ュー 


ロ 





中 . し し ます 

















っ CFIDt 


flag に より 次 の 動作 を 行い ます . 


ーー-/* スク リプ ブ ト 団 字 */--- 


… 上 半分 に スク リプ ト 文 字 を 印字 
こ に スクリプト 文字 を 印字 


fla 





[スク リプ ト ・ フ ラグ 





-$INCLUDE: 「printer.h' 


LPRINT x 


SCTiD【 
NbN 6W di 
SCTipl 


SCTID【 
SCrTibt 
wCEFIDI 





(1 
(0) 
(1) 


EL 」 


村 机 


時 聖 


LPRINT 


LPRINT 
LPRINT 


LPRINT 
LPRINT 
LPRINT 








こ は , タプ 位置 は 設定 され て いま せん の で , 
_ H9( タ ブ プ ・ コ ー ド ) を 受信 し て も タプ 動作 を 行い ませ ん . プリ ンタ (PC- 
PR201 や PC-PR101 な ど ) の タブ ・ セ ッ ト は , 次 の エス ケー プ ・ コ ー ド 
リン タダ タ に 送る こと に より , 以後 基 H9( タ プ ブ ・ コ ー ド ) を 受信 する た び 
こ , 最も 近い タブ 位置 に 移動 で きる よう に な り ま す . 





ESC,。 (001.009.017…. 


3 桁 の 数 字 列 は , タプ 位置 で 適当 に 定め て くだ さい . 通常 は 8 文字 間 
隅 で す . 文字 列 の 終わ り は ピリ オド (.) で リ 朱 す . 





「$INCLUDE: printer.h 





Scttab 


ee 
LPRINT a + CHRS(9)+ーb +CHRS(9)+ で + ト CHRN(9)+ 





詩 式 。 Undlne a 
9 こ ーー 、 電 1: ア ン ダー う イ ン ・ モ ーー ド O N 
1 以外 : ア ンダ ー ラ イン ・ モ ー ド OFF 





が 1 上 なら デン グー ライ シモ キー ド を ON。 1 以外 なら る アン ゲー ラ ィ 
ン ・ モ ー ド を OFF に 設定 し ます 。 


Hiragana 参 肝 . 











Quick BASIC 
_ グラフィック の 使い 方 . 


| ウィ ン ンド ウ と ピュー ボート 


グラ フィ ックス 処理 で は ,。 ワー ルド 座標 .。 オリ ジ ナ ルス クリ ー ン 座標 。 スク リー 
座標 と いう 3 つの 座標 を 扱っ て いま す . 

LINE や CIRCLE で の 作図 は ワー ルド 座標 に 行わ れん ます . ワー ルド 座標 の どの 男 
囲 を CRT デ ィ ス プレ イ へ の 表示 男 囲 に する か を WINDOW 文 で 指定 し ます . この 
加 隆 を ウィ ンド ウ と 呼び ます . 

CRT ディ スプ レイ 上 の 表示 範囲 は , VIEW 文 で 指定 し ます . この 範囲 を ビュ ー ポ ボ 
ー ト と 呼び ます . CRT ディ スプ レイ の 左 隅 上 の 点 を (0, 0) と する 座標 を , オリ ジ 
ナル スク リー ン 座 標 と 呼び ます . 

CLS また は CLS ] で 消さ れる 午 囲 は ビ ピュー ボ ポート の 中 だ け で す . 


ーー ド 座 様 
Pf レオ リ ジ ナ ルス クリ ー ン 座標 


| CRT ディ スプ レイ 














(639, 399) 


Quick BASIC で は , WINDOW 文 に よる ウィ ンド ウ の 切り 方 に 2 通り の 方 法 が あ 
り ま す . WINDOW 文 に SCREEN オプ ショ ン を 付け る と , 下方 を Y 座 標 の 正 の 向 
き と す る ワー ルド 座標 を その まま の 向き で ビュ ー ボ ー ト に 取り 出し , SCREEN オプ 
ショ ン を 付け な いと , YY 方向 を 逆転 し て ビ ピュー ボー ト に 取り 出し ます . 
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天 B 草 グラ フィ ッ ク 処 理 





WINDOW (一 50, 一 I00) ウィ ンド ウ WINDOW SCREEN (一 50, 一 |00) 
ー(500. 150) ー(500, 150) 





B 
(500, 


ヒビ ュー ポー ト 
W 
ワー ルド 座標 





還 バ レッ ト ・ モ ー ド 
使用 で きる 表示 色 の 種類 は , SCREEN 文 で 指定 する パレ ッ ト ・ モ ー ド に より 異な 


り ます 。 





SCREEN 画面 モー ド , パレ ッ ト ・ モ ー ド 
… 8 色 中 8 色 . 色 番 号 0-…7 (Ver.4.5 か ら ) 


0 
1 …16 色 中 16 色 . 色 番 号 0 --15 
2 …64 色 中 16 色 . 色 番 号 0 --63 
3 …4096 色 中 16 色 . 色 番 号 0 4095 


LINE や CIRCLE で 指定 する 色 は , 実際 の 色 番 号 で は な く 属 性 番号 (0 一 15) で 行 
ます 。 


PALETTE 属性 番号 , 色 番 号 
ー 4095 


RALEI EE 


9| ls 


属性 番号 と 色 番 号 は PALETTE 文 に より 対応 プ け られ て いま す . 
パレ ッ ト ・ モ ー ド 1 (16 色 モー ド ) の と き の 色 番号 と 色 の 対応 は 以下 の と お り です. 
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パレ ッ ト ・ モ ー ド は PC-9801 の 機種 に より 制約 を 受け ます . 
次 の 機種 お よび デジ タル ディ スプ レイ チー し た 場合 、 パ レッ ト ・ モ ー ド 0 (8 色 中 
8 色 ) し か サポ ー ト し ませ ん . 


PC-9801 E/F/U/VM2/VF2/UV2/VX2 
次 の プロ グラ ム は 64 色 中 16 色 を 表示 する も の で す . 


「 ---/* 表示 色 サ ンプ ブル */--- 
SCREEN の 9。 2: CLS 


FOR c = @⑳ TO 63 STEP 16 
FOR p = 9 TO 15 
だ AMLEIUE D り 。 で ゞ B 
NEXT p 
FOR p = @ TO 15 
LINE (D * 4 の 9 の , 19 の )-((D + 1) * 4 の 9 の , 159) ,。 pD, BF 
NEXT p 
Pause$ = INPUT$(1 ) 
NE も EX C 


國 中 間 色 


中 間 色 を 出す 原理 を 説明 し ます . 

色 を 出す 基本 は ,。 青 ・ 赤 ・ 緑 の 3 枚 の プレ ー ン の 各 ビ ッ ト を 適当 に 組み 合せ る こと 
に より , 23= 8 通り ( 黒 一 臼 ) の 色 を 表示 し ます . 前 に 述べ た PAINT 文 の 色 指 定 で 
は , 塗る 領域 の 全 ド ッ ト を この 色 で 塗っ て いた の で , 8 色 で し か 塗れ な か っ た わけ で 
す . し か し , これ を ある ドッ ト は 赤 , その 横 は 黄 , その 横 は 赤 と い うふ うに 赤 と 黄 の 
くり 返し に し た ら ど う で し ょ う . それ ら の ドッ ト は 細か いた め , 人 間 の 目 に は , 赤 と 
黄 が 混ざっ て 見 ん, あたかも オレ ンジ 色 の よう に 見 えま す . この 各 ド ッ ト の 色 の くり 
返し を 指定 する の が タイ ルス トリ ング で あり , 横 8 ドット の ブレーン 3 枚 分 の デー 
グ 。 つ まり 3 パイ ト (3 キャ ラク クタ) の デー タダ が 長 低 必要 に な り ま す . タイ ルス トリ ン 

に 加え る 順 座 は プレ ー ン 1 ( 青 ), プレ ー ン 3 ( 緑 ),、 プレ ー ン 2 ( 赤 ) の 順 で す . 

それ で は , オレ ンジ 色 の タイ ルス トリ 時 
す . オレ ンジ 色 は , 赤 と 次 を 1 ドッ ト ご と に 交互 に 表示 し て 表す こと に すれ ば , 赤 は 
すす て mm キキ と に より 得 ら れる の で , 各 
プレ ー ン の ビッ ト パ タ ー ン は , プレ ー ン 1 が &H00,。 プレ ー ン 2 が 色 HEFF, プレ ー 
ン 3 が 鐘 H55 と な り ま す . これ を プレ ー ン 1。 3。 2 の 順に 加え て TILE$ と し ます 
注 ) Nss-BASIC(86) で は ブレーン 1。 2。 3 の 順に 加え ます . 
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第 5 章 グラ フィ ッ ク 処 理 


オレ ンジ 色 の 中 間 色 
ーー ーー TILE$ ニ CHR$( &H00) 
Sa 十 CHR$(&H55) 






十 CHR$(&HFF ) 


プ ブレーン 3( 縛 ) 





フレ ー ン 2Z( 赤 ) / 


プレ ー ン 1 ( 青 ) / ^ 


な お , カラ ー の 場合 の タイ ル パ タ ー ン も 縦 方 向 に 何 反 も 指定 で き , より 微妙 な 中 間 
色 や , カラ ー 模 様 を 字 く こ と が で きま す . 


「 ーー-/* 中 間 色 */--- 


SCREEN の: CLS - 
輝 度 ブ プレ ー ン 

TI11e$ = CHR$(&HO ) + CHRS(&H55) + CHR$(&HFF ) + CHRS( 60) 

LINE (169, 199)-(209, 299) , 7, B 

PAINT (159, 159) , TI1e$, 7 





プラ フィック ・ マ フロ 


Quick BASIC で は DRAW “コマ ンド 文字 列 "? に より , グラ フィ ッ ク 位 置 の 移動 , 
回 転 。 拡大 / 縮 小 な ど を 行う こと が で きま す . コマ ンド 文字 列 の パラ メー タ に 変数 を 
定 し た い 場 合 は , VARPTR$ を 用 いま す . た と えば , 右 に 移動 する に は , 
DRAW "R =” 土 VARPTRS$(L) 


と し ます 
また , (X,Y) 位置 へ 移動 する に は , 
ーーーーーーーーーー で " 生 縛 
DRAW  "M=" 土 VARPTR$(X) 十 ", =" 十 VARPTRS$(Y) 


ヒーーーーーーーーーーー 一 サー 各 変 数 に 対し , それぞれ = を 置く 
ら し ます 。 
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「) ーーー/* グラ フィ ッ ク ・ マ クロ ・ コ マン ド */ ニ ーーー 
SCREEN @: CLS 
Co] = 9 
FOR 叉 = の 9 TO 4909 STIEP 69 
Co = (Co1 MOD 7) + 1 
FOR y = 69 TO 399 STEP 69 
DRAW "bm=" + VARPTRS(x) + ",=" + VARPTRS( ァ ) ー- 措 画 位置 
DRAW "ss2" ーーー ニ ーーー テ ず ーー 情 率 
DRAW “"c=" + VARPTRS$(Co1 ) 描画 色 
GOSUB MOYou 
NEXT Y 
NEX]] 叉 
EiNDU 
MOYOU : ” 四角 模様 
L = 1009 
DO WHILE 上 > 1 
DRAW "r=" + VARPTRS(L ) 石 へ L 移動 
ルー デ こ VARPTRS(L ) ーー 
U = + ' 多 圭 + 
L. = TH 2 上 へ し L 移動 
DRAW “1=” + VARPTRS(L ) 
EE 導 包 近 
DRAW “"d=”" + VARPTRS(L ) 
bb: 球 呈 ご 有 
LOOP 


RETURN 








4| タイ リン グ 















PAINT を 用 いた タイ リン グ を 行う 際 の , タイ リン グ ・ パ ター ン の サン プル を 紹介 


し ます 。 


タイ ルッ パタ ー ン の 指 


定 は , 横 は 8 ドッ ト で 固定 で す が , 縦 は 何 段 で も 構い ませ ん . 


各 段 の タイ ル ・ パ ター ン ・ デ ー タ は Blue,Green,Red, 輝度 の 順に 4 個 並 べ ま す . 
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* な ニー プ 生 ダイオ リシン シゲ グ ・ サジ ング ブ 少 #/ ニ ーー 


SCREEN 9: CLS 
DIM TIle$(5) 
FOR ] = 1 TO 5 
TL8S【]1] = 
FOR k = 1 TO 16 
READ a$ 
a = VAL("&h" + a$) 
Ti1le$(]) = Ti1le$(j) + CHRS(a) 
NEXT k 
NEXT j] 
DATA 93.99,.99,ff,9c,99,99,ff,39.09,99,fT,c9,.99,.90, 人 ーー ニー ーー の AA 
DATA 99.81.99,ff, の 9,42.99,ff, の 99,24.99,ff,99.18,99,ff ツタ ダーン 
DATA 99.09,cc,ffT,99,99,.33.ff, の 09.99,Ccc,ff, の 9.99,33, ff ペーーー 一 ノバ パパ ター ン C 
DATA cc,99,cc,ff, 9 の の,99,99,ff,33,09,.33,ff,99.99,99,.ff ーーー パター ン D 
DATA aa,aa, の 99,ff,44.44.99,fT,aa,aa.99,f イ f, の 9. の 99.09.ff テーーー パ ター ン E 





FOR j = 1 TO 5 
LINE (89 * 〕), 9)-(89 * j + 8 の 9, 89), 7。 B 
PAINT (8 の * ] + 49, 49), Tile$(J), 7 
NEXT j 
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育 景 の 中 を 移動 させ る 


ある 図形 を 動い て いく よう に 見 せる に は , 現在 位置 の 図形 を 消し て , 次 の 位置 に 
の 図形 を 描く と いう 2 つの 作業 を くり 及 せ ば よい わけ で す . これ を 行う に は PLJT の 
伯 と し て XOR を 用 いる と 便利 で す . 

AN と いう の は ビット ご と の 排他 的 論理 和 を と る の で , 比較 きれ る 2 つの ビッ ト 
が 同じ と き は 0, 異な る と き は 1 と な り ま す 」 

これ か ら , PUT で 表示 する 領域 が オー ル 0 (クリ ア 状 態 ) の と ころ に , XOR の 条 
人 サ を 付け て , PUT で パタ ー ン を 描け ば , その まま パタ ー ン が 表示 され ます が 。 そこ 
に 手 び 同 レ パタ ー ン を XOR の 条件 で 描け ば , 先 に 描い た 図形 は 消え ます 。 この 辺 の 
原理 を 下図 に 示し ます . 





@ 背 景 が クリ ア さ れ て いる と き の XOR 






表示 領域 


ーー EE レー ゝ ボボ 


」 


て, 移動 する 図形 は 画面 が クリ ア さ れ た と ころ を 移動 する だ け で な く , 背景 の 中 
を 進ま せ た い 場合 が あり ます . その よう な 条件 で も XOR は ぁ る 程度 有効 で す あぁ ぇ 
和 度 有効 と いっ た の は . 多少 の 欠点 が ある か ら で す . AOR 条件 を 付け て . 2 度 
PU 文 を 実行 すれ ば , 1 度目 は 描く パタ ー ン が 待 ら れ , 2 度目 は も と の 背景 図 に & 
ー ます が 注意 し て みる と , 1 度目 の PUT 文 で 背景 と 。 描く パタ ー ン の トッ ト が 
人 ズ すると, そこ の ビッ ト は 表示 され な い ( カ ラー な ら 色 が 変わ る ) と いう こと で す 
この 退 の 原理 を 次 ペー ジ の 了 図 に 示し ます 
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第 B 章 グラ フィ ッ ク 処 理 
人 き 音 景 が びあ る と き の XOR 


1 1 0 0 0 0 1 0 


1 0 
mm ーー | 移 狗 | 寺 役 





描く パタ ー ン 





0 0 0 


ょ ーー 
NN エー 





消え て し まう 


漁 の プロ グラ ム は , 波 , か も め , 海面 を 背景 に し て , ヨッ ト の パタ ー ン を 右 か ら 左 
に 進め る も の で す . 


「 ---/* 海 を 走る ヨッ ト */--- 


X = 45: Y = 41 


byte = 4 + 4 * ((X + 7) \ ま 8) * ′ 必要 な バイ ト 数 

Ss = byte \ 2 + 1 必要 な 配列 要素 の 数 
DIM p%(s) ) イメ ー ジ 用 配列 
SCREEN 9: CLS 

COLOR 4 

LINE (9, 39)-(19, 49): LINE -(49, 49) ) ョ ッ ト の 図 


LINE -(44, 39): LTNE -(9, 39) 

LTNE (24, 9)-(8, 28): LINE -(24, 28): LINE -(24, 9) 

T TNE (28. 14)-(28, 28): LINE -(49, 28): LINE -(28, 14) 
GET (9, 9)-(44, 49) , p% 


CLS 

CIRCLE (55, 15) , 3 の 9, 3 4.7, 5.32 ” 疲 
CIRCLE (99, 15) , 3 の 9, 3, 4.98, 44.7 

CIRCLE (85, 19) , 39, 3, 4.7, 5.32 

CIRCLE (129, 19) , 39, 3, 4.98, 4.7 

CIRCLE (199。 39) ,。 3 の 9, 7。 .95。 1.57 ′" か も め 
CTRCLE (135,。 39) , 39, 7。 1.57。 2.19 

CIRCLE (159, 49), 3 の 9, 7,。 .95。 1.57 

CIRCLE (185, 49) , 39, 7, 1.57, 2.19 

LINE (9, 49)-(69, 49), 3 ′ 海 面 


LINE (125, 49) -(399, 49), 3 ーー 
_ 初期 位置 に ヨッ ト を 描く 








PUT (329, 5) , p%, XOR - " ョ ッ ト の 移動 

FOR x = 329 TO 39 STEP -49 開 
PUT (X。 5) 。 D%。 XOR ー 一 現在 位置 の ヨッ ト を 消す 
PUT (x - 49, 5), p%, XOR ッ セ の 本 に 当 ュ 

NE 次 の 位置 に ヨッ ト を く 
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BET/PUT で 使用 する 較 形 デー タ 用 配列 の 構成 





フン ス を 用 いて , グラ フィ ッ ク 画 面 に 表示 され た デー タ の ドッ トペ パタ ー ン を 配列 
ー 浴 棚 す る こと が で きま す が , 直接 , 配列 に デー タ を 格納 する こと も で きま す 
例 と し て , 下図 に 示す よう な 16x16 ド ッ ト の 男 囲 に 描い た イン ベー ダ を 配列 Iiv% 
し ) に 格納 する こと を 考え て み ま し ょ う . 


iv る (0) ニ &H 0010<- 楠 
lv る (1) ニ &H 0010<- 縦 
lv る (2) ニ &H0000 
iv2(3)=&H0000 
0 > 本 彼 目 
iv (4) ャ 1 

の ン 


lv の (5)&H 0000 



























L「」 | 謙 」「 上 見 」 Iv10=&H6006 

し も 敵 較 早 凍 較 礎 v%00=&H0000| 

画 | | | | 国 較 | v 欠 2=&H Onn | 『 投 目 
| | | | 較 | 較 || | 庄 ーー LU 

- 症 | 議 | | 呈 | 本 





Iv203ー&H 0000 





上 位 


ーー 番 日 の 数 素 iv% (0) に は 表示 パタ ー ン の 横 の ドッ ト 数 , 1 番目 の 要素 ive 
1) に は 縦 の ドッ ト 数 を 格納 し ます . 

の と は 表示 パタ ー ン の デー タ を 8 ピット 単位 で 図 の 横 方 向 に 区 切り 。 左側 の 8 。 
を 下位 。 右側 の 8 ビッ ト を 上 位 と し て 2 バイ ト の 16 進 数 を 作り ます この デー タム 
ターン で Blue,Green.Red , 輝度 の 順に . 郁 合 4 個 の デー タ を iv%(2) 以 後 に 格納 し ま 
す . これ を 上 段 か ら 下 段 に 向け て 行い ます . 

6 し , 横 方 向 が 8 ビッ ト の 整数 倍 に な っ て いな い 場 合 は . 取 右 の 8 ビット グ ループ 
の 不足 分 の ビッ ト を オー ル 0 と し て 扱い ます 

リー が ボ す ブロ グラ ム は , 手 を 下げ X 脚 の イン ペー ダ と 同じ よう な パタ ー ン で 
すげ 0 脚 の イン ペー ダ を 用 意 し , この 2 つ を 交互 に 画面 の を か ら 誠 に 表示 し < 
ぐさ ます. これ で イン ペー ダ が 手 を 上 げた り 下 げた り し な が ら 歩 いて いる よう に 見 > 
計 す . 
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* ーーー/ せき イン ベー ダ ・。 パタ ー ン ジン を / ニ ーーー 
DIM iv%(35 * 4) 
SCREEN の @: CLS 


FOR k = 9 TO 31 * 4 + 4 


READ a$ Blue 


tv%(k) = VAL("&h” + a$ ) 構 の に ト 教 Green 
NEXT K ケー 一 縦 の ドッ ト 数 / に 
DATA 9919,9910 汐 度 ー 有 
DATA 9999.9.9,9,9999,6,6,9,6996,9.9,9,f81f, の,9,.9,f81f,9 9 . 6 手 を すけ げた 
DATA 9819,9 和信 1 ト の 人 せ せ う ササ ルー フロ X 脚 の イン 
DATA f99f, の ,9,9,2184, の 9,.9,9,4181, の ,9, の 9,8241.9,.0, の ,4242.9. の 9, の .2424.9.9.9 」 ベ ペ ベータ 
DATA 9919,9916 
DATA 9429.9.9,9.6246,9,.9,9,6246.9.9,.9,f99f, の 9.9. の 9,f99f, の .9,9 手 を 上 げた 
DATA 9999.9,9,.9,9a59,.9,9,.9,fc2f, の 9. の 9, の 9,f81f, の 9, の 9, の 9,f81f,. の 9.9,.09 0 脚 の イン 
DATA 81f. の 9.9,9,2994, の .9, の 9,1998,9. の , の 9,9819, の ,.9,9,.1998,9.9.9,4994.9, の ,9 前 


FOR Y = 9 TO 6 STEP 29 
PUT (9, Y) , 1v%, XOR 
flag1 = 9: flag2 = 16 * 4 + 2 
FOR k = 1 TO 39 

PUT (16 #* (k - 1) , Y) , 1V%(f1ag1) , XOR 
PUT (16 * k, Y) , 1v%(f1ag2 ) , XOR 
SWAP fl1ag1, fl1ag2 

ト tt = 1 TO 5 の 9: NEXT 人 





画面 左端 に イン ベー タダ タ 表示 


| つ 前 に 描か れ た イン ペー ダ を 消す 
次 の イン ベー ダ を 表示 











NEXT K 
NEXT y 





7| VHAM の 直接 アク セス 


VRAM を PEEK 文 ・POKE 文 で 直接 アク セス する こと に より , 各 プ レー ン の デー 
タ を 操作 する こと が で きま す . 

VRAM の プ ブレーン 1 の 先頭 番地 は &HA8000, プ レー ン 2 の 先頭 番地 は & 是 B0000. 
プレ ー ン 3 の 先頭 番地 は 和 &HB8000 で す . 

DEF SEG 文 で セグ メン ト ア ドレ ス を 各 プ レー ン の 先頭 に 設定 する と , 各 プ レー ン 
の オフ セッ ト 値 は 次 ペー ジ の 図 に 示す よう に &H0 一 和 &H7CFF で 示さ れ ま す . 

この プレ ー ン の アド レス と CRT 画面 と の 関係 は .。 プレ ー ン の &H0 番 地 に CRT の 
左 隅 上 より 横 8 ド ッ ト 分 の デー タ が 格納 され ,&H1 番 地 に その 横 8 ド ッ ト の デー タ が 
格納 され て いま す . 

つま り VRAM の 1 アド レス に , CRT 上 の 横 8 ドッ ト 分 の デー タ が 格納 され て い 
る こと に な り ま す . 
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@ VRAM の 各 プ レー ン オ フ セ ッ ト 値 (PC-9801 シ リー ズ ) 


640 ド ッ ト 












清和 


紹 間 横 8 ドッ ト 分 の 


デー タ が | アド レス 
| 紀和 の つて いい 名 











400 ド ッ ト 





CRT 


| &H7e80 | 


VRAM 


炊 の ブロ グラ ム は , VRAM の アド レス を &H50 お き ( つ まり CRT の 縦 方 向 に 1 ド 
ッ ト ず つ ) に , 婦 H00 一 &HFF まで の デー タ を くり 返し POKE 文 で 書い て いく も の 
で 9。 


 ~ー~ー-/* グラ フィ ッ ク 画 面 の 直接 アク セス */--- 
SCKEEN の 9: CLS 


DEF SEG = &HA809: GOSUB VAccess 
DEF SEG = &HB999: GOSUB VAccess 
DEF SEG = &HB899: GOSUB VAccess 
END 

VACCeSS: 





FOR k = @ TO 29 
dat = の : adr = k 
FOR Y = @⑳ TO 169 
POKE adr, dat 
adr = adr + &H509 
dat = (dat + 1) MOD 255 
NEXT 
NEXT k 
RETURN 





グラ フィ ッ ク 画 面 の ロー ド / セ ー ブ 


グフ フィ ッ ク 画 面 の データ は , A8000 番 地 以 後 の VRAM 上 に 格納 され て いま す . 

し だ が っ て , この VRAM の 内 容 を そっ くり フロ ッ ピ ィ に セー ブ し て お け ば よい わ 
け で す . PEEK, POKE を 用 いて , VRAM を 直接 アク セス し て 情報 を フロ ッ ピ ィ に 格 
書 する 方 法 も 考え られ ます が , デー タ が 128KB と た い へ ん 大 きい の で この 方 法 で は 
時 間 が か か り 過 ぎ ま す . そこ で , 機械 語 を セー ブ プ , ロー ド す る 命令 BSAVE と 
BLOAD を 用 い , VRAM 上 の デー タ を 一 種 の 機械 語 デ ダー タ と みな し て 記録 する と 。 
病 束 な セー プ ・ ロ ー ド が 行え ます . 
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A8000 
BSAVE | 
ココ コー ゴ BUO0OO 
ne 1 B8000 
BLOAD 


E0000 





VRAM 


EE 


DECLARE SUB Gload (f$) 
DECLARE SUB Gsave (f$) 


SCREEN の @: CLS 


FOR r = 1 の 9 TO 199 STEP 109 
ドド:。 だ / 1 示 MOD す * 1 


NEXT r 


Gsave "bi:gdat“" 


CLS 


PRINT "Hit Any Key" 
Pause$ = TINPUTS(1 ) 
Gload "bz:gdat“ 





ドラ イブ B に gdat1. dat, gdat2. dat, gdat3. dat 


だ いう きつ の ジブ ァイル で セー プ 


EE 


Gload (f$) 

DEF SEG = &HA80909 
BLOAD f$ + "1.dat“ 
DPF SEG = &HB899 
BLOAD f$ + “2.dat" 
DEF SEG = &HEO00 
BLOAD f$ + "3.dat" 
DEEF SEG 

SUB 


。 の 
。 の 


> 


END 


GSave (f$) 

DEF SEG = &HA800 
BSAVE f$ + “1.dat" 
DEF SEG = &HB890 
BSAVE f$ + "2.dat" 
DEF SEG = &IE の 00 
BSAVE f$ + "3.dat“ 
DEF SEG 

SUB 


。 の 。 &HFFFF 


。 9。 &H7FFE 


馬 。 光 旧 た 
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_ タート ル ・ グ ラフ ィ ッ ク ・ 
リ を ライ フラ 


直線 を 引く 方法 と し て は , 次 の 2 つが あり ます 


① 始 点 , 終点 の 2 点 を 与え る . 
② 長 さと 方 向 を 与え る . 


BASIC で は ①, LOGO や UCSD Pascal で は ⑦ の 方 法 を 用 いて いま す そこ で 
BASIC で も , ② を 行う プロ シー ジャ Move,Turn を 作り まし た . この 方 法 は ター ト 
ルレ ・ グ ラフ ィ ッ ク を 行う の に 都合 よい も の で す . 

さて , 長 さ と 角度 を 与え て 直線 を 引く に は , 描画 の 現在 位置 LP(Last referenced 
Point) と 現在 角 を 記憶 し て お く 〈 く 必要 が あり ます . これ ら の 変数 を (Lpx,Lpy) と 
Angle と し ます . 





注 ) タ ー ト ル ・ グ ラフ ィ ッ クス 
LOGO や UCSD pascal な ど で 有 名 な も の で , へ 形 の ター トル ( 亀 ) に 長 さ と 方 向 を 
指定 し て , 直 続 を 引い て いく も の で す . 


この よう な 考え に 基づい て 作成 し た グラ フィ ッ ク ・ ラ イブ ラリ を 以下 に 示し ます . 


る GLIB .H 





。 攻 。 レ ベル 2 グラ フィ ッ ク ・ ラ イプ ブラリ ・ 


> > 


DECLARE SUB Move (1!。 c!) 
DECLARE SUB Moveto (X! 。 Y!。 


DECLARE SUB Setpolnt (XX! , 
DECLARE SUB Setangle (8a!) 
DECLARE SUB Turn (a! ) 

COMMON SHARKED LDX, Lpy, Angle 
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第 5 草 グラ フィ ッ ク 処 理 
欠 GLIB . BAS 


| OO EE 


ト 。 EE Eb EE 0 


DECLARE SUB Move (1!,。 c!) 
DECLARE SUB Moveto (X!。 Y!。 で C!) 
DECLARE SUB Setpolint (XX! , Y!) 
DECLARE SUB Setangle (a!) 
DECLARE SUB Turn (al!) 


COMMON SHARED LDX, LDY, Angle 


mmm 


に 」 に 」 に 」 1 


1 還 m。 | 本 還 還 mh mh mm mmmmr immmh mmms im: hm mmm mmm mm mmm mmm EEE 


SUB Move (1, Cc) 
rd = 3.14159 / 1809 
X = ] w COS(rd w Angle) 
Y = 1] sw SIN(rd きき Angle) 
LINE (Lpx, LDy)-(LDxX + x, LDY - Y), Cc 
LDX = LDX + 丸 
LDY = LDY - 
END SUB 


し 。 生還 _ 還 清和 還 


レー 遇 に EE 


SUB MovetoO (X。 Y, で ) 
LINE (LPX。 LDPY)-(X,。 アダ )。 で 
LDX = 叉 
LDY = YY 

END SUB 


し 還 _ 還 っ 加 半 OO 


SUB Setangle (8a) 
Angle = 8 
END SUB 


SUHB Setpolint (X, 了 ) 
LDX = XX 
LDY = Y 

END SUB 


FE 


SUB Turn (8) 

Angle = Angle + 8 

Angle = Angle - INT(Angle) + INT(Angle) MOD 369 
END SUB 


161 


園 ラ イブ ラリ の 使用 ) 
A>QB| ノ | 
*。 QB を 起動 し て お いて , GLIB. BAS を 作成 し . 


* グ イッ ク ・ ラ テイ デブ プリ GLIB、QLB を 作成 し ます . 
この ライ ブラ リ を 利用 し て ユー ザ ・ ブ ログ ラム を 作成 する に は 。 次 の よう に 起動 し 





> ライブ ラフ ラリ の プロ シー ジャ の 型 宣言 を 行っ て ある 








。。 。 現在 位置 (Lpx,Lpy) か ら 現 在 角 Angle の 方 向 に , 長 さ ? の 直線 を 色 
ーー C で 描き ます . 








?* SIN(Angle) 
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還 野 | mmm "時 | 本 野 本 較 中 還 叶 中 間野 時 昌 時  [ 時 1 時 の 


'$INCLUDE: 'b:glib.h'" 


SCREEN 9: CLS 





FOR n = 3 TO 9 
Setangle の 
Setpoint 3290, 200 
FOR ] = 1 TO n 


Move 59,。 1 
Turn 369 / n 
NEXT ] 


NEXT n 





Moveto  x,。y,。C 
ーー ツー 一 


し _ 直線 の 終 座標 





現在 位置 (Lpx,Lpy) か ら (x,y) に 色 c で 直線 を 描き ます . 





(x。 y) 


(Lpx。 Lpy) 


まじ LUUE> BsgLtb.h 


SCREEN の : CLS 
WINDOW SCREEN (-16, -19)-(16, 19) 
Rd = 3.14159 / 1809 
FOR 9 TO 1989 STEP 4 
r = 4 *w SIN(4 # t / 3 * Rd) 
XX r * COS(t * Rd) 
Y r w STIN( 化 sw Rd) 
TF 人 = ⑳ THEN 
Setpolnt XX。 YY 
ELSE 
MOVetO X。 YY, 4 
END IF 
NEX1 t 





由 
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Setangle  a 
一 設定 する 現在 


現在 角 を al"] に 設定 し ます . 


し - 設定 す る Lp 座標 


現在 位置 (Lpx,Lpy) を (x,y) に 移動 し ます . 


(Lpx。 Lpy) 





現在 角 を al] 回 転 し ます . 回 転 後 の 現在 角 
補正 し ます . 
4 
2 1 | od 
/ し 











0 "-360'" に 入る よう に 


グラ フィ ッ ク 処 理 


第 5 草 





ーー 
提 
| 
C の ンジ 負 | の 
ーー ジテ シー 用 
1 SNS 』 峰 !T 
G SS 間 5 る 
"3 着 
ャ ーー+ 雲寺 
| | 
必 . | 正四 
〇 ① 
ーー の に 
ーー 
16 中 坦 
| J に りか ロ 
se W 回 ] 徐 7) 
| | ⑤ 
ー bd ーー ーー ③⑤ ⑳⑩ | 
⑤ 1 rd 
9 | | も 0 C 〇 。 へ bokto 
1 儲 ! ** : 
還 CT 誤 乱 の - 。 bobo で の 〇 
| 畑 K 1  - + コ oO ⑤ 。 己 己 ど ロ 
キー | | い CN の 〇 ① OO 
| 章 1 ** 5 l 還 … 証 王 軒 王 四 = 1 較 | 
= 1| | ] キャ に) 〔 
Ii 術 」 司 る qQo Pod の 己 &o 
]) ig ! ご ー ロコ コレ ロビ 
' 1 : 二 1 ー コ アン l bp 兄 bp 円 呈 コ ww 
ンー | 1 。 〇 回 に oO 選 選 ロー 
1 i ビー | bp 上 加計 ロ 。 
簡 1 還 | 中 名 ロ や ゼ や) 
@3  () の ひ 〇 OL の @ 〇 の の 〇 
ジ ょ 7 中 の Un 0 串 ーー 
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4 


angle 三 |45 
Step 


ー 4 


angle 三 122 
Step 
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ーー ニー ニー/ き コッ ホホ 島 */--- 


DECLARE SUB Koch (N! . Leng! ) 
SINCLUDE: 'b:gl1ib.h・ 


SCREEN の : CLS 


N = 4 コッ ホネ 次 数 
Leng = 4 0 区 の 長 さ 
Setpoint 59, 129 開始 点 
Setangle 9 開始 角 
FOR 1 = 1 TO 3 
Koch N, Leng 
TUrn -129 の 
NEXT 1 
PAINT (299, 159) , eo 9 
SUB Koch (N. Leng ) ー 記 光 下 曲線 の 再帰 手続 


TEF _N = の THEN 
MOVe Leng, 3 


ELSE 
Koch N - 1. Leng 
Turn 6 の 
Koch N - 1 . Leng 
Turn -129 
Koch N - 1. Leng 
Turn 69 
Koch N - 1. Leng 

END 1TF 

END SUB 
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GLIO グラ フィ ッ ク ・ 


PC-9801 シ リー ズ に お いて グラ フィ ッ ク 糧 理 を 行う に は , 専用 の ソフ トワ ウェ ア 割 り 
込み に より 簡単 に ROM 内 ルー チン を 利用 する こと が で きま す . グラ フ LIO(Logi- 
cal Input Output) の ソフト ウェ ア 割 り 込 み の コ ー ド は a0~-af,ce の 17 種 類 あ り , レ 
ジス タ bx に パラ メー タ ・ リ スト ( 竹 種 座標 デー タ な ど ) の 先頭 アド レス (オフ セッ ト ) 
を 与え て , int n を 行え ば 目的 の グラ フィ ッ ク 処 理 が 行え ます . 

Quick BASIC に は グラ フィ ッ ク 命 令 が 用 意 さ れ て いま す が , ここ で は , PC-9801 
ジ シリーズ の グラ ブッ Ll0) を 利用 し た グラ フィ ッ ク ・ ラ イア ラリ を 弟 介 し ます ,。 ほとん ど 
の ライ ブラ リ は Quick BASIC で サポ ー ト し て いる の で , そちら を 利用 し た 方 が よい 
で し ょ う . た だ , Quick BASIC で サポ ー ト し て いな い 次 の ライ ブラ リ は 利用 価値 が 
ある と 思い ます . 





・Gscreen …(Quick BASIC で は 画面 モー ド , ペー ジ 指 定 の 種類 が 少な い 
が , この Gscreen を 使え ば 多く で きる . 

・Gkanji 。 … グ ラフ ィ ッ ク 画 面 へ の 漢字 の 出力 . 

・Roll … グ ラフ ィ ッ ク 画 面 の ドッ ト 単 位 で の 移動 . 





男 着 り 込み ベク タ の 設定 


グラ ブフ TLIO に よる 人 制 り 込み を 行う た め に は ,。 アド レス 0・280-0:2Df お よび 0・ 
338 の 割り 込み ポイ ンタ ・ テ ー ブ ル に , LIO 処理 ルー チン へ の エン トリ ・ ボ イン ト を 設 
定 し て お か な けれ ば な り ま せん . この エン トリ ・ ボ ポイ ント は 。 ROM の f990 : 0 以後 に 
格納 され て いる の で , ユー ザ は それ を 0 : 280(a0 ポ ボ ポイ ンタ) 以後 の 割り 込み ポイ ンタ ・ 
テー プル に コピ ー す れ ば よい こと に な り ま す 。 こ の よう す を 以下 に 示し ます 。 な お , 
エン トリ ・ ポ イン ト の セグ メン ト ・ ア ドレ ス は 1f990 に 固定 で す . 
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AU ポイ ンタ の オフ セッ ト が 0048 で ある こと を 示す アド レス 


エン トリ 数 


hlcf990 | 
hld0000.0047 


10000 11 00 1C 25 4A0 00 18 00 00 48 00|A1 00|87 00 009 00 7B 03 | 


0020 A7 00 01 07 A8 00 83 08 A9 00 D0 12 AA 00 AA 13 | 





|0030 AB 00 66 14AC00 05 154D00 25 1BAE0OO65IC| ・280(A0X4) 
0040 AF 00 19 1E CE 00 CA 37 
e エン トリ ・ ボ ポイ ント ・ テ ー ブ プル 「 0 た 。 





は 和 キ キト Sriooadiiiiiuii 
に より 異な る こと も ある 


・2BF(AFX 4 ) 


・338(CE X 4 ) 





@ 詩 | り 込 み ボ イン タ ・ テ ー ブ ル 





田 グ ラフ L | の コマ ンド 


グラ フ LIO で 利用 で きる コマ ンド は , 下 表 に 示す よう に 17 種 類 あ り ま す . グラ フ 
LIO の コマ ンド を 実行 する に は ,。 フ パパ フラ メー タ ・ リ スト の 先頭 アド レス の セグ メン ト 値 
を ds,。 オフ セッ ト 値 を bx に 与え て , 次 の よう に ソフ トウ ェ ア 割 り 込み を 行い ます . 
n は 割り 込み 番号 (a0-af,ce) を 表し て いま す . 


ds パパ ラメ ー タ ・ リ スト の セグ メン ト 値 
bx パフ メー タ ・ リ スト の オフ セッ ト 値 
Int n 


上 0 +| 2 3 


GSCREEN ディ スプ レイ 画面 


アク ティ ブフ 画面 
画面 スイ ッ チ 
- 画 面 モ ー ド 
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第 5B 草 グラ フィ ッ ク 娘 理 


0 十 2 十 4 十 6 十 8 十 9 


フォ アグ ラウ ンド ・ カ ラー 
| 一 バッ ク グ ラウ ンド ・ カ ラー 


久 ラ ーー コード 


パレ ッ ト 番 号 


定 癌 。 ま 当 。、 定 D 9 本 3 十 10 二 1 十 13 十 4 十 16 


指定 点 を 直線 で 結 X1 yl X2 》V2 タイ ル ・ パ ター ン ・ 
ぶ パレ ッ ト 番 号 | 人 
画面 コー ド イグ me 
スイ ッ チ ーー 2 2 に 
ライ ン ・ ス タイ ルー 5 間 タイ ル ・ パ ター ン 長 


0 年 梁 9 刺す 5 和 キ 9 士 作 二 I 十 416 す 195 す FI9 せる 2 


革 半 
中 心 x | 半径 rx 
中 心 yー 半径 ry 

| GCIRCLE 『 パレ ッ ト 番号 


EMI | タダ イル ・ パ ター ンー 
| ek 


開始 点 x. | 
セッ ーー | タイ ルル: NE 


+0 上 2 士 4 填 5 土 6 十 8 


GPAINT1 応 ワー クエ リア 先頭 オフ セッ ト 
ワー クエ リア 終了 オフ セッ ト 


] 十 0 圭 2 二 5 十 6 十 8 十 |O 十 I6 十 |8 


タイ ル ・ パ ター ン _ 
GPAINTZ に よる ぬり つぶ し イル 、 パター ン 長 ワー クエ リア 先頭 
v タイ ル - 2 ya ォ ノ セット 
し ルター ら 。 明 オノ セッ ト 
境界 色 
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+0 十 2 十 4 十 6 十 8 二 |IO 十 |2 














格納 域 の 長 さ 
格納 域 ベ ペース 
格納 域 オ フ セ ッ ト 











+0 十 2 十 4 十 6 +8 10+ll+I2+13 
土間 提 洒 庫 | 商 際 訂 人 和 ーー プ テ ア ぃ カラ ー 


カフ ー: ス イツ チ 






格納 パタ ー ン の 表 









を ーー " 描画 モー ド 
2 | | ー- 描画 モー ド 
rk 格納 域 の 長 さ 
格納 域 ベ ペース 


| 十 0 十 2 十 4 十 6 二 7 十 8 十 9 







党 字 の 表示 








指定 ドッ ト 数 の ロ 
ー ル ・ ア ッ プ 





の ポー プラ が 
左右 ドッ ト 
上 トト ドッ ト 











指定 位置 の パレ ッ 
ト 番号 を 得る 





| GPOINT 


な お 各 パ ラメ ー タ の 意味 は , Ns。-BASIC (86) の 各 グ ダラ フィック .- ス ヌス テ 










指定 域 の グラ フィ ッ ク ・ 
デー タ を メモ リ 転 送 






ー ト メン ト に 対応 し て いま す . 





還 グ ラフ LIO の 作業 領域 

グラフ フ LIO で は デー タ ・ セ グ メ ン ト (ds) の オフ セッ ト 0-1400h の 男 囲 を 次 の よう 
な 作業 領域 と し て 使用 し ます . 

マグ ラフ LIO の 作業 領域 


128 バ イト 29427 ドイ 126 バ イト 












+620h ーー 二 1000h 





+1380h 十 1400h 


1/0 


第 5 草 グラ フィ ッ ク 和 理 


BASIC で は 。ds:0 か ら は BASIC の デー タ が 入っ て いる た だ た め , 5120 バ イト の 
gwork と いう 文字 列 領域 を 確保 し , グラ フ LIO コマ ンド 実行 時 に その セグ メン ト ・ 
アド レス を ms に 決 す よ うに し ます . 


時 Cbh ポイ ンタ の 割り 込み 処理 ルー チン 


グフ ソン LIO で は 比較 的 時 間 が か か る 捕 画 処理 (CIKCLE や PAINT な を 行っ て 
いる 場合 に , 描画 処理 の 途中 で の 中 断 を 可能 に する だ た め に , 一 定時 間 ご と に int 0c5h 
の 割り 込み が か か り ま す . し た が っ て , ユー Cm り 込み 処理 ルー よ ン を 人 
ボ ポイ ジグ ュ デー プル に エン トリ 。 ア デア ドレス を セッ ト し な けれ は ば な り ま せん . 

本 書 で は 最も 簡単 な 割り 込み 処理 ルー チン を アセ ンプ ブリ 言語 の iret( イ ンタ ラブ ト 
リタ ー ン ) の み と し , BASIC プロ グラ ム 中 に この コー ド (cfh) を 埋め 込み まし た . 





盟 つ LIU コマ ン ド の パフ メー タ の セッ ト 


GLIO コマ ンド に 瀧 す パラ メー 明 , 又 字 列 硫 域 gwork hm Setb .Setw を 用 
ぃ いて 設定 し ます . Setb が バイ ト ・ ー タ の 格納 , Setw が ワー ド ・ デ ー タ の 格納 と な り 


ます 。 
e GLIO コマンド ・ パ ラメ ー タ の セ ゼット 
DS :0 一 ] 


GLIO 用 作業 領域 





ーー 十 140Uh 





還 GLID コマ ンド の 実行 

午 | り 込み 番号 a0 一 ce の GLIO コマ ンド の 実行 は ,Lio プロ シー ジャ で 行い ます . こ 
の プロ シー ジャ は CALL INTBRRUPTX に より 1Lio に 与 た られ た 引数 で 示す ツ 
フト ウェ ア 割 り 込 み を 行う も の で す . 





較 ウ ィ ン ド ウ と ビュ ー ボ ポート 

グラ フィ ッ ク 画 面 の サイ ズ は (0,0)-(639,399) の 範囲 で す が , 一 般 に この 範囲 外 の 
座標 デー タ を 使用 する こと が 多く あり ます . この よう な デー タ を 扱う ただ ため に , ウィ ン 
ドウ と ビュ ー ボ ポー ト と いう 概 夜 が あり ます , 実際 の デー タ が 闘 か が れ て いる ゐる 座標 を ワー 
ルド 座標 ,CRT 上 に 表示 する 座標 を スク リー ン 座 標 と 呼び ます . 
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@ ワール ド 座 標 と スク リー ン 座 標 
= x スク リー ン 座 標 
ワー ルド 座標 
VXT.VY 
y ーー 


(WX 1. WY 1 ーーー 


(WX 2, WY 2) 





HH 


ワー ルド 座標 (WX1.WY1) 一 (WX2,WY2) の 範囲 を スク リー ン 座 標 (VX1. 
VY1) 一 (VX2Z.VY2) に 表示 する に は 、 次 の ファ クタ で 縮小 / 抜 大 すれ ば よい こと に な 
り ます 


FACTX =(VX2-VX1) /(WX2-WX1) …x 軸 の ファ クタ 
FACTY =(VY2-VY1)/(WY2-WY1) …y 軸 の ファ クタ 


し だ た が っ て , ワー ルド 座標 (x',y) の 点 を スク リー ン 座 標 (x,y) に 移す 変換 式 は 次 の 
よう なり まず す 。 
x =(x-WX1) * FACTX 土 VX1 
y =(y-WY1) * FACTY 二 VY1 


WAI。 WYL  WAZ。 WYZ。 VAL VYIL。 VA2。VYZ2 FACTIX PAOTY は 
共有 宣言 され て いて ,。 Gscreen を 行っ た 直後 は 。 


W 久 1= WTY1= V 久 1= VY1=0 
W 久 2= V 六 2=539 
WY2= VY2=399 ま た は 199 


と な っ て お り , ワー ルド 座標 と スク リー ン 座 標 が 一 致し て いま す . 
ブロ シー ジャ Gview,。 Gwindow は , これ ら の 共有 変数 の 値 を 設定 する も の で す . 
座標 変換 は , この 設定 され た 値 を も と に , Gpset, Gline, Gcircle, Gpaint, Gtile 
で ササ こ と に し ます . 
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る GLIO.H 


第 B 草 


グラ フィ ッ ク 和 負 理 


DECLARE 
DECLARE 
DECLAKRE 
DECLARE 
DECLAKRE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLAKRE 
DECLARE 
DECLAKRE 
DECLARE 
DECLARE 
DECLAKRE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLAKRE 


FUNCTION Getpalete! 


SUB 
SUB 
SUB 
SUB 
SUB 
SUB 
SUB 
SUB 
SUB 
SUB 
SUB 


(XX%。 ア %) 
は も 4116 [K!。 | 、 oe 先 。 dat 和 %() 。 
Ro]1 (a%, D%,。 f%) 

Gkan]1 (X%。 Y%。 COde%, mode%,。 C 和 ) 
CIPG]G 「X0! 。 ザ の 1 。 P!。 G 多 。 ぞ f 移 。 上 1 。 
2911TG [LXO!。 YO!) 、。 X1! 。 YE 。 こも 。 和え 。 
GV1GW (XX 上 1) 、 ャ 上 ) 。 XX! 。 \2!〕 

GwIndOW (X1!,。 1! 。 XX2! 。 YY2!) 

SetW (adr%,。 dat%) 

Gpaint (X, Y, C1%,。 C2%%) 

GSCrTeemn (aa%。 D%, C%。 d%) 

Setb (adr%, dat%) 

Gintt () 

Movedata (SSegs, SOff%,。 Dseg%s, Doff 各 。 nn ) 
LiOo (Intno 各 ) 

Gc1s () 

Gget (XX1%。 Y1%。 X2%。 Y2%。 da 上 名 ( ) , 
Gpalete (a%。 Db%) 
GDSet (X, 了 , C 和 ) 

GDUut (X%。 y%。 dat%( ) , 
GCO1Or (a%,。 D%, C 名 ) 


1 eng ) 


Sa!i。 @e8! 。 
s%, dat%( ) ) 


Teng% ) 


TenE%。 mmOOG。 SW 各 。 C]1 先 。 C2 免 ) 


1eng%, dat%( ) ) 


W GLIO . BAS 


FUNCTION Getpalete! (x%。 Y 各 ) 
SUB Gtile (X!, yY!, c%,。 dat%( ) , 
SUB Ro11 (a%, b%。 f%) 

SUB Gkan]1 (X%。 Y%。 COde 矢 。 
SUH Gcircle (X の O!1。 YY9!。 FI 
SUB GTIrme (X の 1 。 YO の! 。 x1L1 。 Y1I。 
SUB Gview (X1!。 Y1!,。 X2!,。 Y21) 
SUB Gwindow (x1! 。 Y1!, XX2!。 YY2!) 
SUB Setw (adr%。 dat%) 
SUB Gpalnt (XX,。 YY, で C1 各 。 
SUB GSsScreen (8%,。 D 各 。 C%。 
SUB Setb (adr%, dat%) 
SUB Ginit () 

SUB Movedata (Sseg%, 
SUB Lio (Intno%%) 

SUB Gc1s ( ) 

SUB Gget (X1% も 。 Y1%。 
SUB Gpalete (8a%, D%) 
SUB GpSset (X, YY, C%) 
SUB Gput (X%, Y%, dat%() , 
SUB Gcolor (a%。 D%。 C%) 


DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLAKRE 
DECLAKRE 
DECLARE 
DECLARE 
DECLARE 
DECLAKRE 
DECLARE 
DECLARE 
DECLARE 
DECLAKE 
DECI,ARE 
DECLARE 
DECLARE 


1eng%) 


mode%, C%) 
R 二 。 放 江 。 も 1 。 
CC 和 。 す 各 。 


Sa!, ea! 。 ]erig%, dat%( ) ) 


S%。 dat%( ) ) 


C2% ) 
d% ) 


Soff%,。 Dseg%, Doff%。 n%) 


x2%, y2%, dat%( ) , 1eng% ) 


1eng%, mode%, SWw%。 C1%, C2%) 


*$INCLUDE: '\ ぎ TNCLUDEYQB.BT" 
SHAKED 
SHARED 
SHARED 
SHARED 
SHARED 
SHARED 
SHARED 
SHARED 
SHARED 


LPX。 LPY 

WX1 ,。 WY1 。 WX2。 WY2 
WAC1 。 VY1 。 VA2 。 VYZ 
FACTX,。 FACTY 

ImnregSsX AS ReglIypeX 
OutregSX AS RegIyDeX 
DSeg%, GSeg% 

gwork AS STRING w 5120 
TRET% 
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トト 。 年 。 


時 年 3 EE 


SUB Cclircle (x9, y の 9, r, c%, f%, 上, sa, ea, 1eng%, dat%( ) ) 


DIM sw%(6) 


Ssw%( の ) = の : Sw%(1) = 5: Sw%(2) = 15: SWw%(3) = &H20O: SsSw%(4) = &HI2F 


SW%(5) = &H6 の : SWwW%(6) = &H6F 
Rd = 3.14159 / 1809 
X の O = (xO の - WX1) * FACTX + VX1: Y の 9 = (Y9 
に = 『 9 FACTXA 
IF の < f% AND f% <= 6 THEN 
SX% = XO + FT * COS(Rd * Sa8): SY% 
CX% = X の 9 + r * COS(Rd * ea): eyY% 
Setw 10, SX% 
Setw 12. SY% 
Setw 14, eX 和 
Setw 16, eyY% 
END IF 
XO% = X の O: YO% = YO: r% = r: 上 % = T # て t 
Setw の ひ ,。 XO% 
Setw 2。 YO の 和 
Setw 4。 Tr 
Setw 6, 化 条 
SetbD 8, C% 
Setb 9, Sw%(f%) 
Setb 18, leng% 
Setw 19, VARPTR(dat%( の ) ) 
Setw 21, VARSEG(dat%(9) ) 
Lio &HABS 
LPX = XO%: LPY = YO% 
END SUB 


EE 


SUB GC1s 
END SUB 


ss mm mm Em mm 


ii 


SUB Gcolor (a%, D%。 C 生 ) 
Setb 1, 』 矢 
SetD 2, Db 条 
SetD 3。 C 各 
Lio &HA3 
END SUB 


ie 


人 EE 


FUNCTION Getpalete (XX%。 第) 

Setw の , 双 各 

Setw 2, y% 

Lo &HAF 

Getpalete = OutregSsX.aX AND &IHF 
END FUNCTTON 


ト EE 時 8 EE 


SUB Gget (x1%, y1%, x2%。 Y2%。 dat%( ) , 1eng%) 
Setw の , XX1% 
SeLW 2, Y1% 


ー WWY1) w FACTY + VY1 


Y90 - r w SIN(Rd * sa) #* 化 
Y90 - r w SIN(RO * eS) # 


第 5 草 
Setw 4, 2% 
SetLw 6, Y2% 
Setw 8, VARPTR(dat%(9) ) 
Setw 19, VARSEG(dat%( の 9) ) 
Setw 12。 ]eng% 
LO 多 HAB 
END SUB 


Ginit 
TRET% 
DSGE% 
Doff% 
GSGgE 和 も 


&HCFCF 
VARSEG( gwork ) 
VARPTR (gwork) 
DSeg% + Doff 先 ぎ \ 16 + 1 
WOrkK% &HF990 
FOR 1 = @ TO 15 
Movedata &HEF99 の 9 の , 6 + 1 きき 4, 
Movedata VARSEG(work 和 ) , 
NEXT 1 
Movedata &HEF99 の 9 の, 6 + 16 #w 4, 
wOrk% = VARPTR(IRET% ) 


の , 


Movedata VARSEG(work%) , VARPTR (work%) , 
VARPTR(Dseg% ) , 


Movedata VARSEG(Dseg%) , 
Lio &IiA の 
SUB 


ーー 計時 


レー 所 5 5 


Gkan]1 (X%,。 Y%, 
Se し LW の 9。 広和 名 
Setw 2。 YY 各 
Setw 4, code 生 
Setw 6, mode 先 
Setb 7。 1 

SetD 8, C 先 
Setb 9, の 

Lio &HAD 

SUB 


Code%, mode%, C%) 


に 」 ココ に 1] 


本 王国 還 還 還 |  mEh  | 本 5 較 mm mh mv mi mi Hm mi mm 中 mm mami 本 


G11ime (X の 0。 Y の 。 X1。 Y1。 
DIM sw%(6) 

SWw%( の 0 の) = の : Sw%(1) = 1: 
Sw%(4) = &H191: sw%(5) 
XO% = (X の - WWX1) # 
YO% = (YO の - WY1) 
X1% = (X1 - WX1) 
Y1% = (y1 - WY1) 
Setw の , xO% 
Setw Y の % 
Setw 叉 1 各 
Setw Y1 
Setw C% 

Setw SWw%(TfT%) 
SetWw 11 , 8 

Setb 13, sg 
Setw 14。 VARPTR(dat%(9) ) 
Setw 16, VARSEG(dat%(9)) 
Lio &HA7 
LPX = X1: 
END SUB 


選定 。 ます 第 。 


SW%(2) = 2: 
= & 旧 102: 
FACT 区 + VX1 
FACTY VY1 
FACTX VX1 
FACTY VY1 


軸 車軸 
キ キ キキ 


に ト ] ト ] し 」 


9 の 


LPY = Y1 


SW%(3) = 
SW%(6) 


の ,。 &HAO * 4 + 1 * 4. 2 
VARPTR (work% ) , 


の , &IHAO # 4 


&HCE * 4。 2 


の &HCO * 4。 2 


9,。 &HC5D き 4 オォ 24 


SsS%, dat%( ) ) 


&ll1.009 
= &I202 


グラ フィ ッ ク 処 理 


1 5 生 ) 失 すず 中 


2 


1/ う 


「 DD うこ 


に 1 に に し 」 


SUB Gpalint (XX,。 YY。 C1 生 ,。 C2%) 
XX = ( 元 - WWX1) w FACTX + VX1 
Y% = (YY - WY1) w FACTY + VY1 


SetLw の 。 却 各 
SetLW 2。 Y 和 
SetD 4, c1% 
Setb 5, c2% 
SeLw 6,。 &HAOO 
Setw 8, &H6AO の 
Lio &HA9 
END SUB 


EEH =PPF | 昌 RH hm FR FR Hm Ri HP mm PP Fm jmmh Emm He mm mm mm mmm mmm mmm memm sms :EmEmm>  -mmm 


人 カラ ー・ バ パ バレット の 変更 き 


| [mm mm mi mh mi mr mr Eh Em mm Ei iam EE 5 mmm mmm mmmh msn msn mam mm 


SUB Gpalete (a%。 b 各 ) 
SetDb 9, 8 ョ % 
SetbD 1, D 第 
Lio &HA4 

END SUB 


= mm mu mm si mmm ims ams mmm ER 5 mii 


SUB CpDSet (X,。 Y, C%) 
X% = (X - WX1) *w FACT 欠 + VXX1 
y% = (y - WY1) w FACTY + VY1 
SetLw の 。 X 和 
Setw 2 Y% 
Setb 4。 C 和 
Lio &HA6 
LPX = XX: LPY = Y 
END SUB 


3 mm Hm 中 npsmhn mm mi 本 


1 mh mm hm = mmm mm nam piimmm 5 mh ii 


SUB Gput (x%, y%, dat%(), 1eng%, mode%, SW%。 C1%。 C2% 和 ) 
SeLw の 9 の, 双 % 
2。 第 
Setw 4, VARPTR(dat%( 90) ) 
6 , VARSEG(dat%( の )) 
8 , 1emg% 
SetD 19, mode% 
Setb 11, SWw% 
SB も ED 12。 で 1 和 
SetD 13。 C2 
Lio &HAC 
END SUB 


ーー 


* 画面 モー ド の 設 き 


SUB Gscreen (a%, b%, Cc%, d%) 
SetD の , 8 各 
Setb 1, bs 
SetD 2。 C 和 
SetbD 3,。 d% 
Lio &HA1 
WX1 = の : WY1 = の : VX1 = の : VY1 = の 
WX2 = 639: VX2 = 639 
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TEF a% = の 9 THEN 

WY2 = 199: VY2 = 199 
ELSE 

WY2 = 399: VY2 = 399 
END IF 
GwindOow WX1 。 WY]1 。 WWX2.。 WY2 
Gview VX1 。 VY1 , VX2。 VY2 

END SUB 


年 還 半 5 


SUB Gt1ile (x。 y, c%, dat%( ) 。 1eng%) 
X 和 = (XX - WX1) sw FACTX + VX1 
y% = (y - WY1) sw FACTY + VY1 
Setw の 9 の 。 元 和 
Setw 2。 系 

Setb 5, 1eng% 

Setw 6, VARPTR(dat%(9) ) 
Setw 8, VARSEG(dat%( 9 の) ) 
Setb 19, C 和 
Setw 16, &HA の O 
Setw 18, &H6A の 
Lio &HAA 

END SUB 


っ 


EE 


SUB GvieWw (X1 。 Y1。 X2。 Y2) 
X1% = X]1: Y1% = Y1: X2 和 % = X2: Y2 和 = Y マ 2 


SetWw の 9 の, X1% 
Setw 2。 Y1% 
Setw 4,。 X2 和 和 
Setw 6B, Y2% 
Setb 8, &HEFF 
Setb 9, &HFF 
Lio &HA 


VX1 = X1: VY1 = y1: VX2 = X2: VY2 = Y2 
FACTX = (VX2 - VY1) / (WX2 - WX1) 
FACTY = (VY2 - VY1) / (WY2 - WY1) 

END SUB 


SUB GwindoWw (X1,。 Y1。 X2。 Y2) 
情 火 | = X1: WY1 = Y]1: WWL2 = 元 2: WW = Y2 
FACTX = (VX2 - VX1) / (WX2 - WX1) 
FACTY = (VY2 - VY1) / (WY2 - WY1) 

END SUB 


> 5 im mm mmm issm  :5Emsmi mm im HEh mm mm mm imi mm mimimh Fmmmi 


SUB Lio (Intno% ) 
TnTeESX.DX = の 
InreESX.d8 = GSeg% 
CALL INTERRUPTX(TIntno%。 TnregSX,。 OutregSX ) 
DEF SEG 
END SUB 


グラ フィ ッ ク 処 理 


1 ア / 


L_ EL EE 


SUBH Movedata (Sseg%, Soff%, Dsegt, Doff%, ri%1 
FOR K = 1 TO n% 
DEF SEG = Sseg% 
a = PEEK(Soff 先 ) 
DEF SEC = Dseg% 
POKE Doff%。 a 
SoOff ヂ f% = Soff5 + 1 
Ioff% = Doff 免 + 1 
NEXT Kk 
END SUBH 


mi) Emi mmm mm mmh Em mmm imm mm 呈 ※ ii mm mm Himmm mr mm 


1 _ 症 還 _ > _ 業 和 EE 


国 
本 
S 
求 
畔 


SUB Ro11 (a%。 b%, f%) 
Setw の , 8a% 
Setw 2。 b% 
SetD 4, f 和 
L1O &HAE 
END SUB 


= 芋 = = ms ami = mammm =mEH  :mmm  mmE :=mm  :H  :E  FmmmmF = mm mm mv ii ii 


SUB Setb (adr%, dat%) 
Movedata VARSEG(dat%) , VARPTR(dat%), Gseg%s。 adr%, 1 
END SUB 


im im 


Rm . 本 還 還 |  [ 還 較 ) 中間 Wh)※ PR PR Rh) mmm)※。 Rh FPP Pi mmr mh mm mmmr imai miih mmmp-mm immm 古語 呈 - mmmhr Em imim 


SUB Setw (adr%, dat%) 
Movedata VARSEG(dat%) 。 VARPTR(dnt%!。 GSegE%,。 adOr%。 2 
END SUB 


田 ラ イブ ラリ の 使用 法 

A>QB /L[ ン | 
で , QB を 起動 し て お いて , GLIO.BAS を 作成 し , [R/ 実 行 ] - [L/ ラ イブ ラリ 作成 ] で ク 
イッ ク ・ ラ イブ ラリ GLIO.QLB を 作成 し ます . 


この ライ ブラ リ を 利用 し て ユー ザ ・ プ ログ ラム を 作成 する に は , 次 の よう に 起動 し 
ます 。 


A>QB /LGLIO| ン | 


ュー ザ ・ ブ ログ ラム で は 。 ラ イブ ラリ の プロ シー ジャ の 型 富 言 を 行っ て ある 
GLIO.H を イン クル ー ド し ます . 
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グラ フィ ッ ク 処 理 


D 








工 に 
8 3 
ここ c う 
15 
I | 
皿 らち ら に ご 
| 旨 8 
1 て り て う 
つ …G 
| 8 
や | 9 
1 
事 









_ 
二 
GS ふ 
の と 
1 <。 
ささ 
ミ さっ 
へ お 所 
の 
36 傾 
中 
| 笠 
中 


還 






し 比率 
描画 モー ド (0 一 6) 


合 


ハバ レッ 


半径 
中 心 座標 





x0, y0, r, c%, f%, t, sa, ea, leng%, dat%( ) 


Gcircle 








まそ, 色 c% で 


1 


中 心 (x0,y0) , 半 


応じ た 円 を , 


= 


モー ド (0 一 6) の 種類 ( 


押さ きま す . 





leng%, dat9%6( ) 


Gcircle x0。 y0,。 r,。 c%,。 0,。 t, sa。 ea。 


四 
4 
^ い 
0 
ーー 


Ni 


| 


半径 r, 色 c9% の 円 . t カ 


YU 


すき 


比率 { 





sa。 ea,。 |eng9%, dat9%( ) 


Gcircle x0。y0。r。c 多 。1。 t, 


開始 点 角 sal "| 一 終了 点 角 eal|] ま で の 円 紅 . 





1/? 


Gcircle x0。 y0。r, c 多 , 2, t, sa, ea, Ileng, dat%( ) 





1 
bb ャ 


ーー 


開始 点 角 sal'| 一 終了 点 角 eal'| ま で の 扇形 . 





Gcircle x0。y0, r。 c 多 , 4, t。 sa, ea, s 欠 。 dat%( ) 
扇 の 中 を 色 s 多 で ぬる . ーー ツー 





Gcircle x0。 y0。r。c 釣 , 5,。t,。 sa,。 ea。 s 多 。 dat% 
ee 


1 


に ーー 


円 の 中 を , dat% で 示さ れる 長 さ s 欠 か ら な る タイ ル ・ 
パパ ター ン で ぬる . 





Gcircle x0,。 y0,r。 c 多 。 6。t,。 sa,。 ea。 s 多 。 dat% 
扇 の 中 を , dat% で 示さ れる 長 さ s 欠 か ら な る タイ ル ・ 
2% タ ー ツ で ぬる 、 


ー タ イル ・ パ ター ン 
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素 5 草 グラ フィ ッ ク 処 理 





 。 


! ---/* 円 の 描画 サン プル */--- 
'$INCLUDE: 'b:g1to.h' 


DIM dat%(6 ) 

dat%( の 9 の) = 9: dat%(1) &H3: dat%(2) = &HC の の 9: dat%(3) = 9 
dat%(4) = &H39: dat%(5) = &HC90909 

X1 = 5 の 9: XX2 = 13 の 9: xx3 = 210 

Y1 = 5 の 9 の: Y2 = 139: Y3 = 21 の 

r = 9 

t = 1 


Ginit 
GSCFeen 3。 9, 9, 1 





ド 。 よ 。 湯 品 も 逢 ( ] 

1 の ⑲ 。 キ 。 dat 先 ( ] 
2 償 。 填 。 ロ at 先 ( ) 
9, 5, dat%( ) 
12 の 9 。 5。 dat 和 ( ) 
9, 12, dat 各 ( ) 
12 の 9 の ,。 12, dat 免 ( ) 


GCtFC1e X メ 1 。 Y1。 r。 
は CHTCLG X 以 。 YL。 Y。 
GCircle X3。 ア 1。 Y,。 
GCIrCLG X 上 。 Y ア 2。 
(GOLFCLGB メス 。 W 浪 。 P。 
GeLPC1LG XXH。 WS。、 テ 。 
Gcircle x2。 Y3,。 Fr, 


 」 
トコ 
呈 軸 
k 」 


 」 
ト 」 
ト ] 


に 3 
1 
に 」 
ド 


0 ee 9 6 トラ トピ 
oy Or CO も 5 や 
T す 中 け 本 
や らら ピ 





Gcolor a9%6。 b%, c9% 
フォ アグ ラウ ンド 色 ( パ レッ ト ・ コ ー ド ) 
ボー ダー 色 ( カ ラー・ コ ー ド ) 
バッ ク グ クラ ウン トド 色 ( パ レッ ト ・ コ ー ド ) 





a%,b%,c% の 指定 に し た が っ て , ディ スプ レイ 画面 の 色 を 指定 し ま 
す . 





Getpalete (x%,y%) パレ ッ ト 番 号 








し _ 指定 位置 の 座標 
(x%.y%) 位置 の ドッ ト の パレ ッ ト 番 号 を 取得 し ます 
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バイ ト 数 ) 


ズ ( ン 


ー 配 列 の サイ 
を 格納 する 配列 


leng% 


形 


dat%( 
し 
右 隅 下 の 座標 


X29, 
左 隅 上 の 座標 


y2%, 


L 


y1%, 


X1%, 


Gget 





こ 取得 


(x1% ,y1%) 一 (x2% ,y2%) で 囲ま れる 図形 を , 配列 dat%( )( 


し ます . 


dat( ) 


(x 1 多 ,。y1 め ) 


| ー 


(x2 , y2 め の ) 


† 算 し ます . 


一 
に 
ーー 一 覧 
ーー 


配列 の サイ ズ ( バ イト 数 ) は 次 の 式 で 


(( 横 の ドッ ト 数 十 7)/8) * 縦 の ドッ ト 数 * M 十 4 


leng% 


モノ グ 玉 の と き は IM =] 


の と き は Ms=3 


2 ジ 


きせ /ー ニ ーー 


の 取得 / 表 示 


形 


5 





宮 
wt 
『 

I 
『 





LO 


『 


"る TNCLUDE 


、 / 8) * 41 *w 3 + 4 
DIM dat%(Size% 移 / 2) 


((45 + 7) 


S1ZGe% = 


Gin1it 


5 


の 9, 9 の, 1 
2 の 9) 。 15。 
2 の 9)。 5, 5 


GSCreen 3, 
CTRCLE (20, 
PAINT (20, 


S1Z ア 6 名 


44, 4 の 9, dat%() , 


9 , 


Gget 09, 
に し 


9 の, ⑨, の 


9 , 


S1ze%, 


dat%( ) , 


GDUt 到 各 。 


FOR X% = の TO 39 の 9 STEP 409 
叉 名 。 
NEXT x% 





aa 4 


ング 


Cc5,ce の ボ イ 


8。 


a0 


* 


域 を 確保 し 


作業 


フ LIO 用 の 


in 
フ 


G 
ダグ 
ル の ベクタ を 





メ 定 し ます . 


ーー 

ーーー 
ーー 
= 
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グラ フィ ッ ク 和 負 理 


* 


う に 初期 化し ます . 


グラ フ LIO を 次 の よ 


し , 


行 
ll モー ド を カ 
・ ア クティ ブ 画 面 を 0 


( こ 


フ 


・ | 由 |[ 





一 守 
に 


ココ 
ーー 


ィ ス プレ イ 画 面 を 16 
・ パ レット 番号 を 初期 値 ( 


ーー 


村 


Pr 
em 


態 





画面 全体 を 初期 状 


プ ノ 男 


が 
の 関数 は 各種 グ 





\ ソ 
い 
示 


ー 
ュー 一 


フィ ッ ク 処 理 ( 


ジ 


lr 
ーー 





ト - 色 


code%,mode%, c% 


X%,V パ 6, 


計 
で ① 
こと 
の 





反転 


8 
サ 6 

は の 
パソ 
ら ジ 
.・ 所 
本 
| の 
ピ 
男 〇 
担 。 

ー 馬 

ロ 若 

の で 

っ 上 肌 

選 

I ド 


表 





トキ J 





1 中. 


ザ 


1 


を , (x%,y%)1 


TIS コー ド code% で 表示 され る 漢 





せ /ーーー 


1 も OO。 自 " 


「 ーー-/* 漢字 の 表示 





 Db 


事 
寺 


'$TNCLUDE 


Gin1lt 


ap. 
) 
ャ つ 
キキ 
ャ 
1 | 
ここ 」 
ey 
as 
| 
の 
デー ゴ ド 1 
1 天 ] ここ 
| ここ 
テー 
| トコ 
| 
= で 
5 呈 
CM 車 
CO 
ヒー 
= EE 
CO G⑤ 
に 
詞 由 本 
中 この 
の ① "つの 
| 才 | 
O 議 p 
の 〇 中 
(うつ 区 ーー 


中 
完 
に 
抽 、 
覆 
と つ 
中 
瑞 
守 
時 
抽 
克 
天 
SR 
3 
里 
似 
下 
地 
記 
EE 





KN 
5 
y 
退 〕 
へ 9 
て n 
*。 の 明 
一 
人 の 
基き 
ふく ミ 
こさ 
ー や 
IN ら 


,X1,y1,c96, f96, s9%6, dat%() 


x0,y0 


(Gline 








描画 モー ド (0 一 6) 
バレ ッ ト 色 


終点 座標 


始点 座標 
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例 





モー ド f%(0-6) の 種類 に 応じ た 直線 を (x0,y0) 一 (x1,y1) に 引き ます . 


Gline x0, y0, x1, y1, c26, 0, s%, dat%( ) 
ャ ーーーー ーーーーーーーーーーーーー“ 


mm 時 
1 ーーー 一 


ーー 


Gline x0,y0, x1, y1, c96, 1, s9%, dat96() 
ea 

グミ ー 
Gline x0。y0,x1,y1,c96, 2, s9%, dat96( ) 
ューーーーーーー、ーーーーーーー“ 

グミ ー 
Gline x0, y0, x1, y1, c96, 3, s9%, dat96( ) 
人 aa 
グミ ー 
Gline XxU, yU, x 1 9 y1, C26, 4 , S26, dat96( ) 
ーッ ャ ー デ 
Gline x0,y0, x1, y1, c%, 5, s96, dat9( ) 
ューーーー ニ ーーーー 
ダグ ミー 
Gline x0, y0, x1, y1, c%, 6, s%, dat%() 

'” ---/* 直線 の 描画 サン プル */--- 


"る TNCLUDE: biglio.h' 


DIM dat%(6) 


dat%( の 9 の) = 9: dat%(1) = &H3: dat%(2) = &HC99: 
dat%(4) = &H39: dat%(5) = &HC990 

Gin1it 

GSCreen J3,。 の 9 の 。 9 の, 1 

G11ne の 9 の, 219,。 209, 21 の 9 の, 1, の , 1 , dat%( ) 
G1Ine 9 の 9, 9, 2909,。 29 の 9, 3, 1, 1, dat%( ) 

G1ine 149, 14 の 9 の, 169, 169, 4, 2, 1, dat%( ) 
G11ine の 9 の,。 2290,。 20 の 09, 22 の 9, 1, 3, &HFOF の 9, dat 各 () 
G11ine 29。 29, 18 の 9, 189,。 3, 4, &HFF の 9, dat%( ) 


G11ine 4 の 9。 49, 69, 6 の 9, は , 5, 6, dat%() 
G11ine 89, 8 の , 12 の 9 の, 12 の 0, 5, 6, 12, dat%( ) 


色 c% の 直線 


色 c9% の box 


色 c% で box fill 


色 c% で ライ ン ・ ス タイ 


ル s9% の 直線 


包 Be の 2 で ラオ シン シ ・ ス ダイ 
ル s% の box 


色 c% の box を 色 s% で 
{il 


dat% () で 示さ れる 配列 
の s92 バ イト の タイ ル ・ 
2 ダー ンジ に よる ぬり つぶ 
し 


dat%(3) = 9 
” 直線 
” DO え 
” 0 ゆ 宮 まま 11 
” ライン ・ ス タイ ル 直 線 
、 イシ スグ ナイル Bo 
′ 異な る 色 の box f げ 1i11 
- 半 ャ まま ー ダ 


第 5 草 グラ フィ ッ ク 処 理 








ー 外 枠 の 色 
の 開始 点 





ご 

Ss | 帳 

ーー NG 

SS 冥 、 

6 て 
3 


よぶ) 
4 *ーー 


ニ 
hi 
NN 
o ヾ 
で 1 
Ns 





プ 内 を 色 c1% で ぬり ます . 








ラー・ 


農 し ま 


変 


ーー 
ーー 


D26 


ド 


カラ ー・ コ ー 


ッ ト 色 を , 


人 


レ 


ヾ 


り 92 の フ 


ド a 


ブッ ー 


ッ ト 


| 


レ 












り 
7 


ゴゴ 』W 電 








上 忌 を 打ち ます 


され る 色 の 


% で 示 


C 


【 こ 
ーー 『 


D/ 


1 


る 


) で 示さ れ 


4 


条 


、 員 
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。。 記 W 

(0 に 
ャ 時 っ 人 S ーー mp 由 
生還 レン 世 藻 世 ー | に の の 
に 者 まこ まま ー 外 - 古 ます 、 こ (J = ェ 、 9 っ ) 
ルト TS マメ = N * 
こ へ ヘン ね 王 ー a | ー へ 0 
きく さ ざさ ・ の = し て で て で 
ok yy い 内 
かゆ とる に ざま 導 ! て ・ 5・ 
SS ぷ 、。 1 IX 90 し wo て AS 。 まる 
で べ 0 へ 

へ 8 1 。 う 
1 >=S 還 5 ぶ ) と 5 ST 
に I っ [ e ー xi 軸 培 " 
さ | ss ご 因 Ss ュ マ ド 人 抱き ・。 ュ ミト ・ 
SS 5 K  3 288 で SS 
0 1 9 へ 
ー ー [ べべ ー つ < 室 守 veG KK 9 
ペ 押 こ まく 時 る ャ て 1 所 / メ 用 で S・+* 
に SS 3 。 ト は メー っ マー IS へ ド 
E 還 ふ コ で IJN て 。 や 。 まき) NSK 
き 中 べ 民間 | ヶ 己 」・< KK ・ 
ン 秋 ぐ 、 ーー 同 中 | 有 品 | 寺 居 六 へ 居 
ー< NN ら ) ) 件 
ご 器 意志 SS 回 ぐ と mp を 忠 下 AN ト 
も ざ 史 3 固 四 」・| 呈 て WW で am 
O IEK で ぐ へ 中 Ra | 
で Av に で 環 中 | ゆ 千 穫 K 押 聞 広 男 
に へ 。 大小 貴 選 選 麗 )N 把 
8 SS > 。 賠 選 近 太 太 E へ 
ベ ヽ で こ 「e we 凍り 人 
< ー Q ① 0 折 攻 | | 3 | 計 
4 の 科 SS 史 @Q の rー で で の 

9 ーー ① ⑨」 
る に ef4 の IN Q① 
〇 i . ウ ワ へ 
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第 B 草 グラ フィ ッ ク 処 理 


c2%2: アク ティ ブ プ ・ ペ ー ジ 








BBBBBBHBL ー 上 。 r 1 | | 











XEH : 指定 不可 


トキ 


EE アゴ スゲ 2 


ペー ジ 1.3 を 合成 表示 
ペー ジム 3 を 合成 表示 





ペー ジ ト みみ 3 を 合成 表示 





全 ペ ー ジ 表示 し な い 


こ ーー 下 ーPNA ーー トーー 


ペー ジ 4 5 を 合成 表示 





198/ 


ペー ジ 6 の み 表 示 | 


ベ ペー ジ 4, 6 を 合成 表示 


ペー ジ 7 の み 表 示 ペー ジ 4 の み 表 示 | 
ペー ジ 8 の み 表 示 


ペー ジ 9 の み 表 示 


ペー ジ 7,.9 を 合成 表示 


ペー ジ 11 の み 表 示 


ペー ジ |0, 11 を 合成 表示 
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第 B 章 グラ フィ ッ ク 処 理 


| 還 y = sin(x 十 9 の) の 位相 角 9 を 600 ず つ ず らし て , サイ ン ・ カ ー ブ を ペー 
_ 章 。。 ジ 1 一 ペー ジ 6 に 書き , これ を 順次 表示 する こと に より 動く サイ ン ・ カ 


ー ブ を 得る も の で す . 


ニニ ニ ゲ 人 が 動く サオ シン トカ ー ブ * ゲ ーーー 
' る STNCLUDE: 'b:gl1io.h' 


DIM dp%( 6 ) , dumy%( 6 ) 


dp%(9) = 1: dp%(1) = 2: dp%(2) = 4 ′) デイ スプ レイ ・ ベ ページ 
dp%(3) = 17: dp%(4) = 18: dp%(5) = 29 
Gin1t 
FOR k% = 9 TO 5S 
Gscreen 2, 9, k%,。 dD%(K%) ′ 描画 ペー ジ の 指定 
Gc1S 


G1ine 5 の 9, 9 の, 59, 199, 1, の 9, 1, dumy%( ) 
C1tne 59, 59, 459, 59, 1, の 9, 1, dumy%() 
FOR t = 9 TO 729 STEP 2 
Gpset 5 の 9+t / 2,. 59 - 59 # SITN((t + K% 和 
NEXT 
NEXT Kk% 
FOR n = の 9 TO S9 
FOR k = 9 TO 5S 
Gscreen 2, の @, の , dD%(K) 
FOR tt = の 9 TO 1999: NEX1] t 
NEXT K 
NEX1 1n 





 」 


サイ ン ・ カ ー プ ブ 
69) * 3.14159 / 189), 5 


表示 ペー ジ の 指定 
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Gtile  x。y。c96, dat96( ), | 


色 c% の 閉 ル ー プ 内 を , dat%( ) で 示さ れる タイ ル ・ パ ター ン 配 列 


ぬり ます . 


テー ツア 


いま せん 。 





eng2%% 
ト [- タ イル 用 デー タ の 個数 


イル 用 デー タ の 配列 
梓 の 色 
タイ リン ク グ の 開始 点 


の 指定 は 横 8 ド ッ ト 固 定 で す が , 


ーー ニー/* モノ クロ ・ タ イリ ング 


"る TNCLUDE: 'b:g1io 
DIM dat%( 4 ) ,。 dumy% 


DATA &h9C の 93,.&hc の 030 
DATA &h4281 ,&h1824 
DATA &h33cc,&h33cc 
DATA &h99cc,&h の 933 
DATA &h44aa,.&h99aa 


Ginit 
Gscreen 2。 9, 9, 1 
FOR 】 = 9 TO 4 

FOR k = の TO 3 


ーー 


h' 


6 ) 





き /ーーー 


&h の Cc の 3 ,&hc939 
&h2418.&h8142 
,&h33cc ,&h33cc 
&h の 09 の cc ,&h の 933 
&h44aa,&h09aa 


GC15S 


READ dat%(k) 


NEXT k 
G1ine 89 * 」, 


タイ ル ・ デ ー タ の リー ド 


9。 8 の 9 * (] + 1),。 8 の 9 の, 7,。 1 1, dumy%( ) 


NEXT jJ 


還 


し 』 


に 
に 十 ! 


Fm 

= 
本 
相 


キオ トト 1 
キキ 放 hh hm 半日 申告 時 
に LELT コ td キト トキ すず LM すず Eu 
直上 | 
ETE ます 
TE JE hr。 1 
ik モト 1 
連環 軸 恒 語 頂 机 記 
庄 還 軍 GE ゴミ 還 呈 本: 
回 軒 還 生 本 放 古都 呈 必 上 
Er 直上 中 EET hh 
ド す キト 上 lt if すす 
恒 習 男 白 置 語 環 得 古 民 画 東 
生生 直上 昌 まや 中 す せ ] 
ト 十 下 .dit. キ 中 下 中 中 『」 
トト トド トト キ す 中 」 年 
証 時 時 四 芽 宇 恒 中 鹿 





可 段 で も か 


CO 








| L_ 右 隅 下 の 座標 
左 隅 上 の 座標 


x1, y1, x2, y2 


テ 
O 
5 
テ 
〇 





上 の 領域 を 。 スク リー ン 


し ます 。 


(x1,y1) 一 (x2,y2) で 示さ れる ワー ルド 座 』 


せ /ーーー 


ウイ ツ ド 信 で ビュー ポート 


還 
ゃ sa 
| 
『 

! 


上 の ビュ ー ポ ー ト に 表示 する 領域 と し て 指 








1 すら Oh 


「b 


'$ ゃ TNCLUDE 


DIM dumys( 6 ) 


Gin1t 


・ GC1S 
S59.。 59 


え 


9 , 
-59 , 


0 , 
Y1 = 9 
y2 = 200 


GW1ndOw -59。, 
= 200・ 
FOR k = @⑳ TO 4 


GSCreen 3, 
1 = の 
メグ 


Y2 


元 る 。 


1 , 


GV1eW 叉 1 , 
GC18 


1 , dumY%( ) 
1. 1, dumy%( ) 


時 
L」 


よ 
1 


1 , 
1 , 
2 


Y1 = 1 + 20 
2 = 


y2 


S9 , 
9 , 


G1ine -59, -59,。 509, 
Gcircle の 9 の, 9, 59, 5, 
X1 = 苑 1 + 29: 

X2 = 双 2 20・ = 


NEXT K 
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0 
で リア フラ グ W 
1 : 移動 後 の 領 域 を バッ ク ・ グ ラウ ンド ・ 
カラ ー で クリ ア 
左右 方 向 の 移動 ドッ ト 数 . 正 が 右 方 向 . 最小 6 ドッ ト 単 位 
上 下方 向 の 移動 ドッ ト 数 . 正 が 上 方 向 


移動 後 の 領域 を パレ ッ ト 0 で クリ ア 





a%,b% で 指定 し た ドッ ト 数 だ け 画 面 デ ー タ を 移動 し ます . 


ダイ アモ ンド リン グ を 上 に 2 ドッ ト ず つ 移 動 し ます . 


「 ---/* 画面 の 移動 */--- 
'$ る TNCLUDE: biglio.h'" 


Gin1lt 
GSCreemn は 3, の 9 の 。 9。 1 


rd = 3.14159 / 186 
FOR k = の @ TO 14 
X1 = 159 w COS(k * 22.5 * rd) + 320 
y1 = 15 の 9 * SIN(k * 22.5 w rd) + 299 
FOR ] = k + 1 TO 15 
X2 = 15 の 9 w COS(j * 22.5 * rd) + 329 
Y2 = 159 * SIN(] * 22.5 * rd) + 200 
ETNE (X。 Y1)-(X2。 Y2)。 1 
NEXT j 
NEXT k 


FOR K = 1 TO 1909 
KO エ 1 2。 @。 9 
NEXT k 










_ | ドラ フイ バ 


= キュ =。、、 ( 

Quick BASIC の 統合 環境 で の 画面 操作 に は マウ ス を 使用 で きま す が , プロ グラ ム 
中 か ら マ ウス を 利用 する ステ ー ト メン ト お よび 関数 は サポ ー ト され て いま せん . 

そこ で マウ え そ を 利用 する た め の ラ オプ ラリ を 作成 し ます 

マツ ウス を 利用 する だ ため の ソフ トワ ウェ ア ・ ド ライ バ パ と し て 。 マイ オグ クロ ソ ゾ ソフト が 提供 す 
る も の (QB シス テム に 付属 し て 入っ て いる MOUSE.SYS また は MOUSE.COM) 
と , PC-9801 用 MS-DOS と し て NEC が 探 供する も の (MOUSE.SYS) と が あり ま 
ず 。 

Ver.4.5 で は , マイ クロ ソフ ト が 提供 する , マウ ス 用 ソフ トウ ェ ア ・ ド ライ バ を 利 
用 する マウ ス 用 プロ ジー ジャ が , ユー ザラ イブ ラリ MOUSE.QLB と し て 提供 きれ , 
その ソー ス は MOUSE.BAS と し て 公開 され て いま す . この 使い 方 は 本 書 の 上 巻 を 
参照 し て くだ さい . 

この 章 で は , NEC 製 マ ウス ・ ソ フト ウェ ア ・ ド ライ バ を 利用 する マウ ス 用 プロ シー 
ジャ ・ ラ イブ ラリ を 作成 し ます . 

NEC 映 マウス ・ ソ フト ウェ ア ・ ド ライ ババ パ MOUSESYS を 利用 ずる に は , 
CONFIG.SYS テキ スト の 中 に , 

DEVICE = MOUSE . SYS 
を 記述 し て お きま す . 

さて , NEC 製 マ ウス ・ ソ フト ウェ ア ・ ド ライ バ に は 16 種 の 機能 が あり , 次 の よう な 

呼び 出し を 行い ます . 
8X < プア ァ アァ シグ ショ シゴ コー ド 
[ 各 レ ジス ター 必要 な パラ メー タ | 
Int 51 


ファ ンク ショ ン ・ コ ー ル の 一 覧 を 以下 に 示し ます . 
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第 / 草 マウ ス ・ イ ンタ ー フ ェ ー ス 











マウ ス を 使用 | 
で き な い 

-|: マ ウス を 使用 
で きる 












マウ ス が 使用 で きる か 人 否 か 
を チェ ッ ク し , 各種 設 定 値 
を 初期 化す る 











マウ ス ・ カ ー ソ ル を CRT 上 


に 表示 させ る 











マウ ス ・ カ ー ソ ル を CRT 上 
か ら 消す 

現在 の マウ ス 位 置 を ,cx,dx | 
に 得る | 










ax <-0 左 ボ タン 上 
ー| 左 ボ タン 押 
bx <-0 右 ボ タン 上 
| ー| 右 ボ タン 押 

cx*- マウ ス 位 置 の x 

座標 (0 て 639) 

座標 | 

(0 て 399/199) 
























cx, dx 位置 に マウ ス を 移動 
する 


ax <-4 

cx マウ ス の x 座標 
(0 て 639) 

dx 一 マ ウス の y 座 標 

| (0>399/199) 



















ax 0 : 左 ボ タン 離 
ー| : 左 ボ タン 押 

bx 一 左 ボ タン が 押さ 
れ た 回 数 

cx マウ ス の x 座標 

dx マウ ス の y 座標 


左 ボ タン の 押下 情報 の 取得 


















左 ボ タン の 解放 情報 の 取得 | ax*-0 : 左 ボ タン 区 
ー| : 左 ボ タン 押 
bx 一 左 ボタ ン が 離さ 

れ た 回 数 
| cx マウス の x 座標 
dx マウ ス の y 座標 














右 ボ タン の 押下 情報 の 取得 







メア ウ ダ グ シ ョ ンジ 5 に 失 
し る 













プア シン クウ グ シ ョ ン 6 に 準 
5 あ 


右 ボ タン の 解放 情報 の 取得 





aX で -9 
bx マウス 中 心 点 の x 
座標 (0 て 15) 
cx マウ ス 中 心 点 の y 

座標 (0 て 31/15) 
| @S SdX * マ ワウ ス ・ デ ー 
タ の 格納 アド レス 


マウ ス の 型 , 中 心 点 の 設定 
マウ ス の サイ ズ は |I6X 
32(I6) ド ッ ト で 与え る . マ 
ウス 中 心 点 の 座標 は マウ ス 
の 左 隅 上 を (0,0) と する 
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cx < x 方 向 移動 距離 
(ー32768 て 32767) 

dx *- y 方 向 移動 距離 

(一 32768 て 32767) 


「 ー 機 ーー 前 ーー 「 入力 パラ メー ター 」 「 
この ファ ンク ショ ン を 前 回 
| コー ル し た と き の 位 置か ら , 

今回 コー ル し た と き の 位 置 
まで の x, y 値 を 取得 


ユー ザ ・ サ ブル ー チ ン を ソ aX <*ー|Z〆 
プ ト ウ ェ ア ・ ド ライ バ が コ cx コー ル 条 件 

ー ル する 条件 を 設定 する . ビッ ト 0 : マウ ス 位 置 
dx に 与え る 5 つの 指定 ビッ の 変化 

ト の うち "| が 立っ て いる 現 | : 左 ボ タン 押 
角 が 発生 する と , ソ フト ウ 2 : 左 ボ タン 離 
ェ ア ・ ド ライ バ が サブ ル ー 3 : 右 ボ タン 押 
チン ・ コ ー ル を 行う 4 : 右 ボ タン 離 
es:dx 一 サブ ルー チ 
ン の アド レス 













ax < 一 | | 























マウ ス の 移動 距離 (ミッ キ ax <-15 

ー リ だ それ に 諸 座 する カー cx を x 方 向 の ミッ キ 
ソル 移動 距離 (ドッ ト ) と の ー/ ド ッ ト 比 

比 を 設定 する dx<-y 方 向 の ミ ッ ツ キ 
ー/ ド ッ ト 比 














x 方 向 の マウ ス 移 動 男 囲 を 
指定 する 


axX < 一 16 

cx ぐ x 方 向 の 最小 値 
(0 て 639) 

dx <- x 方 向 の 最大 値 

(0 て 639) 












y 方 向 の マウ ス 移 動 範 囲 を ax < 17 
指定 する cx ~- y 方 向 の 最小 値 
(0 て 399/199) 
dx < y 方 向 の 最大 値 
(0 て 399/199) 





マウ ス の 色 を 設定 する ax <-18 
bx 一 マウス の 色 


3 
| は 
の ・ 交 
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マウ ス ・ イ ンタ ーー 
以下 に マウ ス ・ イ ンダ ター フェ ー ス *・ ラ イプ ラリ を 紹介 し ます . - の ライ ブラ リ の ソ 


ー ス ・ テ キス ト を MOUSE.BAS と し , プロ シー ジャ の 宣言 ファ イル を MOUSE. H 
ます 。 





る MOUSE .H 


SU LeTt!。 
SU 
SUB 
SUB 
SUB 


SUD 


DECLLAKE 
DECLARE 
DECLAKE 
DECLARE 
DECLARE 
DECLARE 
DECLAKE 
DECLARE 
DECLAKE 
DECLARE 


GetmouSse (Right! , 
SetmouSse (X! 。 yY!) 
Mouseinl () 
mOuSe (flag! ) 
Button (Bt$, 
Distance (X, 
Mcolor (Co]1 ) 
MickeYy (Xx, Y) 
MstY1e (X, Y。 
Myview (xmtini, 


flag, Stat。 count,。 X。 YY) 


y ) 


buf%( ) ) 


Yiln, XaX,。 YmaX) 





る MOUSE . BAS 


EL 


DECELARE 
DECLARKE 


GeLmouSse (RightL!,。 Left1, 


SetmouSsSe (X! 。 Y!) 


」。 Yi 


DECLARE 
DECLARE 
DECLARE 


DECILAKE < 
DECLARE ( 


DECLARE 


MouSselinl () 
moOuSc (Flag!) 
Button (BtS$。 
Distance (X。, 
Mcolor (Col1 ) 
MIckey (X, 了 ) 


Flng, stat, count, Y ) 


Y ) 


共 。 


DECLLAKE 
DFECLARE 


Mstyle (XxX, Y, Dur%() ) 
Mview (XmlIn, Ymmln,。 XmaX。 YmaX ) 


'$1NCLUDE:  \INCLUDEYQB.BI「 
DTM 
DIKM 
DIM 
D1IM 


SHARED Inregs AS Reglype 
SIHARED OuLregS AS RegType 
SIIARED Inregsx AS RegIyDeX 
SHARED OuELrLegSX AS RegFyDGeX 
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還 
革 
に 
に 3 
宮 
づ 
財 
3 
還 


SUB Bu も tton (BEL$, flag, stLat, count, X, YY) 
IF UCASE$(Bt$) = "L” THEN 
SELECT CASE flag 
CASE 1 
ITTGgES .8 双 
CASE の 
Tnregs.axX = 6 
END _ SELECT 
END) IF 
1F UCASE$(BC$) = "R” THEN 
SELECT CASE flag 


山 
wI 


CASE 1 

]nFeGES.8X = 7 
CASE の 

InFeES.8X = 8 


END SELECT 
ENI) IF 
CALL INTERRUPT(51, Inregs,。 OutregS ) 
5 も nt = OutLrLegS.aX 
COunt = OutregS.DX 
X = Out も FeES.C 丈 
Y = OutLregs.dxX 
END SUB 


し 症 遇 8 当 EE OO 


SU DISLanCe (X,。 Y) 
Inr'CgES.aX = 11 
CALI. INTERRUPT(51, InrCgs, OutregS ) 
双 = OuLLCEES.C 元 
Y = OutLrCgS.dX 
END) SU 


PPPmh mmm mmn msh ==m=mh = ニニ ーー:  : 本 = ms mm ms mmm mm pm mmm mmmh mmmmm  :mimmh mmmsmm pmmmh mmmm immm 


SU Getmouse (Right, Left, x, 了 ) 
InTCES.8X = 3 
CALL INTERRUPT(51,。 Inregs, OutrcgS ) 
Right = Outregs.Dx 
Left 上 = OureES.8 
X = OULTCES.C 元 
yY = OutregS.dX 

END SUB 


5 5 > >_ 所 > 


Em im  -iEimmm mmmmu = 本 Em mh fm mv PPP fh hh Pi mh mm mm mimi mm 


SUB Mcolor (Co1 ) 

InreES.aX = 18 

InregSsS.DX = Col 

CALEL INTIERRUPT(51. Inregs, OutregSs ) 
END SUB 


ii ii mm = mm 


SUB Mickey (XxX, Y) 
ITCES.aX = 15 
InTeGES.CX = 区 
InrCgES.dX = Y 
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CAELILL JNIERRUPT(51, Inregs, 


END SUB 


SUB mouSse (flag) 
SELECT CASE flag 
CASE の 9 
ITLES.8X = 2 
CASE 1 
Irmregs.8X = 1 
END _ SELECT 


CALL INTERRUPT(51, Inregs, 


END SUB 


PP mh nm mmm mm 


SUH Mouseln1l 
IiFCES.aX = ゆめ ゅ 


CALL INTERRUPT(51, Inregs, 


IF OutregS.naX = の 9 THIEN 


PRINT “Mouse not nitjianllize“" 


STOP 
ENUD 」 ド 
END SUB 


mm mmmm mmm mm = ニー Eh 


EE mm Hi 還 間 : - 還 日 ( 本  . 員 昌 時 1  : 間 5h  :h 相 中 


SUB Mstyle (X, Y, buf%( ) ) 
TnLCESX.8X 9 
InLegSX.DX 
InTCESX .C 元 
InTCESX、CS 
TImnTCgESX .dX 


か 


END SUB 


トト LE 


PP Ph mm issmmv mh Hmmm Em immh Fmmmmmr hmmims  : 還 mi [mm imim rmrimmh Hmmmi sm cmEH mem mi 


守 FE 」 に 吉 


SUB Mview (Xmim. Ymin。 XmaX, 
Inregs.aX = 16 
InLCES.CX = Xmljn 
IITCES.dX = XaX 


CALL INTERRUPT(51, Inrregs, 


InIeES.aX = 17 
InregS.CX = Ymln 
InTeES.dX = YmaX 


CALL INTERRUPT(51. Iniregs, 


END SUB 


ドー 時 時 時 ーー モー - 5 


SUHB SetmouSe (X,。 YY) 
IIFTCGES.8X = 4 
IITCES.CX = XX 
InTeES.dX = Y 


CALL INTERRUPT(51, Inregs, 


FND SUB 


ま 

VARSEG(buf%(9) ) 
VARPTR(buf%( の 9) ) 
CALL INTERRUPTX(51。 InregSX, 
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OutregSX ) 
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ラ イブ ラリ の 使用 法 


A>QB /L ン 





*QB を 起動 し て お き , MOUSE.BAS を 作成 し , 
ッ ク ラ イブ ラリ MOUSE.QLB を 作成 し ます . 

この ライ ブラ リ を 利用 し て ユー ザ ・ プ ログ ラム を 作成 する に は , 
ます 








A>QB /LMOUSE|/| 
ーー ザワ ヴ ロ グラ ム 仁 ライ ヴ アラ リ の プロ ロウ ツー ジャ の 型 当 営 を 配っ て あん 
MOUSE.H を イン クル ー ド し ます . 
き @ ユ ー ザ ・ ブ ログ ラム 
'$INCLUDE : MOUSE.H' 


IMousein1 
Getmouse Right,Left,x,y 


Button Bt$, flag, stat。 count,。 x。 





utton と flag で 指定 し た ボタ ン 情 報 を stat,count,x,y に 得 ま す . 





button… ボ タン の 種類 
PorL… 左 ポタ ン 
POTR'… 石 ボタ ン 
flag … 押 / 離 の 種類 
… 押 下 
stat … ボ タン の 状態 
… 離 され て い 
-1… 押 され て い 
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count … 前 回 button( ) が コー ル さ れ て か ら 今 回 解放 / 押 
下す る まで の 間 に 解 放 / 押 下さ れ た 回 数 
xX … マ ウス の x 座 標 
y … マ ウス の y 座標 


左 ボ タン が 押さ れる まで , 右 ボ タン を 押し た と き の マ ウス 位置 に 四角 
を 描き ます . そし て この ルー プ を 抜け た と き に , 右 ボ タン が 押さ れ た 回 
数 を 表示 し ます . 


「 "ーー/* ポ プ ダ ン 情報 の 取 介 “プーーー 
'$INCLUDE: 'b:mouse.h' 


SCREEN の @: CLS 


MouSselin1 

SetmouSe 329, 209: PSET (3290,。 209), の 

moOuSe 1 

RNNEECOk "PP 。 まま 、 生ま も 。 BMNEE。 光 。 ※\ ′) ボタ ン 情 報 の 到 得 


Getmouse Right,。 Left, X, YY 
DO WIILE Left = の @ 
IF Right <> の 9 AND free = 1 FIHEN 


moOuSe の 
LINE (x,。 y)-(X + 1 の 9,。y + 1 の 9),。 1, B "四角 を 描く 
IOuUSe 1 
free = ゆめ 
END IF 





IF Right = の TIIEN free = 1 右 ボ タン が 離さ れ た と き の 処 理 
沈 


Cetmouse Right, Left, X, 


LOOP 

Button "rr" 。 1。 StaL。 CountL。 XX, ′) ポタ ン 情 報 の 収得 
PRINT "Right Button "! Count: " tjmeSs push“" 

mOUSC の 














Distance  Xx,。 y 


1 移動 座標 


この 関数 を 前 回 コー ル し て か ら , 今回 コー ル す る まで の 間 に 移 動 し た 
距離 を x,y に 返し ます . 単位 は ミッ キー で す . 


10 ド ッ ト 単 位 に 縦横 に 格子 を 描き ,(320,.200) の 位置 を 始点 と し て , 右 


ボタ ン が 押さ れ た と き の 位 置 ま で の 距離 を 表示 し ます . 測定 し た 2 点 に 
〇 印 を 描き ます . 
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ーーー-/* マウ ス 移 動 距離 の 取得 */--- 


'"$STNCLUDE: 'b:mouse .h* 


SCREEN の : CLS 
Mouseini 


ド POR X = の ②9 TO 639 STFEP 19 9 す 
LINE (X,。 の @)-(x, 399), 1, , &HCCCC 


NEXT 叉 
FOR Y = @ TO 399 


SIKP 10 


LINE (の 。 Y)-(639 。 y) , 1, ,。 &IICCCC 


NEXT Y 


CIRCLE (329, 29 の 9), 5, 2 


SCLmOuSoe 329. 20 の 


Mouse 1 


DIstance X, y 
DO 


Getmouse Right, Ileft, x, y 


LOOP WIIIE Right 
DISEancCe xX, Y 


MOuSe の 9 
CIRCLE (329 + xx, 
PRKINT XX= ・: 双 。 “" 


マウ ス の 情報 を 取得 し , 以下 に 返し ます 


FIght … 


left … 


= の 
移動 距離 の 取得 


29 の 9 + ャ Y) , 


iu 


TI 
9 





る 


二 ポ ダン カ 
0 以外 左 ボ タン カ ヵ 

x … マ ウス の x 座標 

y … マ ワ ス の 7 座標 


解放 状態 
* 押 され て いる 状態 


る まで , マウ ス の 軌跡 を 青色 で 描き 


























「' ゅ INCLUDE: Bi:mouse.h' 


SCREEN の : CLS 
Mouselril 

SpLmoOuScC 32 の 0, 2 の の 
PSET (329, 20 の 9 の) ,。 の 


DO 
Getmouse RIght, Left, X, 
mOUSG の 
LINE -(X, y)。 1 
IOUSG 1 
LOOP WHILE Left = @ 
moOuSe の 
( 負 且 


Mcolor Col 
[- マ ウス の 色 


ー ソ ル の 人 色 を Col で 設定 し ます . 














する ミッ キー(1 ミッ キー=0.01 
態 で す . 





ー ソ ル が 8 ドッ ト 移 動 す る の に 
イン チ ) を 設定 し ます . 初期 状態 で は x =y=8 が 指定 され た : 
も し , x=y=4 に 設定 すれ ば , 4 ミッ キー の 移動 で カー ソル は 8 ドッ ト 
移動 する こと に な る の で , マウ ス の 感度 は 2 僅 に な っ た こと に な り ま 
す 





玩 の Distance で 示し た サン ブル は , Mickey 8.8 の 状態 な の で , ミ 、・ 

ー と マウ ス ・ か カー ソル の 移動 ドッ y ト が 一 致し て いま し た これ: 

ickey 4.4 で 指定 する と ,Distance x,y で 得 ら れる x,y の 値 マウ 
ス ・ カ ー ソ ル の 位置 の 1/2 の 値 と な り ま す . 





に 





ーー-/* マウ ス 感 度 の 設定 */--- 
"る INCLUDE: 'b:mouse.h 





SCREEN の 9 の: CI 
Mouscetliil 


内 


FOR x = の TO 639 STEP 19 "格子 
LINE (x, の 9 の)-(X,。 399) , 1, , &HCCCC 
NEXT x 


FORK Y = 9 TO0 399 STEP 10 

LENE (0。 y)-(6909。 Y)。 1 。 。 166CC 
NEXT Y 
CIRCLE (320。 209)。 5。 2 


SCtmOuSe 329, 20 
Mouse 1 


Mickcy 4, 4 、 丘 まま ーー ググ ド M ま 区 


DStance X, Y 
DO 

GeLmouse Right,。 IiCft, xX, Y 
LOOD WHILE Right = 9 の 
DistLance X, y ′ 移動 





MiOuSe ゆ の 
じ CIKCLE (1320 * テル テ 。 209+Y ア )。 5。 2 
PRLNT 光 1 多 。 ポー 2 ザ 





Mouseini 


ax。 。。 マウ ス が 使用 可能 か 否 か を 調べ , 使用 不可 な ら エ ラー・ メ ッ セ ー ジ 
。 。 出力 し て , プロ グラ ム を 抜け ます . 使用 可能 な ら 次 の よう に マウ ス を 初 
期 化 し ます . 

・ マ ウス ・ カ ー ソ ル を 消す . 

・ マ ウス ・ カ ー ソ ル の 位置 を CRT の (0,0) に 設定 する . 

・ 左 ボタ ン , 右 ボ タン の 押 / 離 の 回 数 を 0 に 設定 する . 

・ マ ウス ・ カ ー ソ ル の 移動 男 囲 を (0.0) 一 (639,399/199) に 設定 

・ マ ウス ・ カ ー ソ ル の 形 を シス テム 既定 形 (S ) に する . 

・ ミ ッ キ ー/ ド ッ ト 比 を x,y 方 向 と も 8 に する . 











1! 
ム 還 
ミミ 
へ ミ 
| 
K へ 
| 
っ k 
SS 便 
を の K 
SG 
。 ド 
っ ュ 
」 
> て 
o 
つ 、 
+ う 
) 





状 を 整数 型 配列 buf%( ) に 横 16 ド ッ ト , 縦 32/ 


ノ 
ク 


マウ ス ・ カ ー ツ ル の # 


y 点 
し て い 


ッ ト の ビッ ト ・ パ ター ン で 与え を ます. マウ ス ・ カ ー ソ ル の 中 


16 ト 


小 


の 16X32/16 の 四角 の 左 隅 上 を (0.0) と し た 位置 を 


ーー 
ュー 


(x,y) は , 


ます . 


位置 


Ip 


マウ ス ・ カ ー ソ ゾ ソル の 中 


X。 Y 


下位 


(0, 0) 


buf%( ) 一 テ olo 
0 








高 解 像 
低 解 像 


3Z2 ト ドット 
I6 ド ッ ト 


(x。 y) 





I6 ド トッ ト 


SN 3 
へ 国 
^ へ 。 緒 
| 社 
。 癌 
4 人 く 
へ 心 
> > 
35 5 
1 択 
WE 呈 
特記 
さ 上 
| * 
S 36 
er = う 
芝 凡 
心 訟 へ 
GS 有 』 
よる 
PS 

*s と ルツ 
GS ご 
図 表 で 
に つめ % 

十 








定 し ます . 


リル 


ー(50,50) 一 (500,300) に 


@ マ ウス ・ カ ー ノ ル 


(0, 0) 





es tai 


16 
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リー ニーー/* マウ ス ・ カ ー ソ ゾル の 形状 */--- 
"や INCLUDE: 'b:mouse.h" 


DIM Style%(32) 


FOR k = @ TO 31 ′" カー ソル ・ パ ターン 
READ Style%(k) 
NEXT k 
DATA 9.9.9.9.9.9.9,.1.1.1.1.1.1.1.1.&hfTfff 
DA まま 1 まり の 、 人 9。 人 の 9 、B、 作 人 , 請 
SCREEN の 9: CLS 
Mouseln1i 
Mstyle 7, 15, Style%() '" マウ ゥ ウス 形 状 の 設定 
Mcolor 1 ′) マウ ス 色 の 設定 
Mvlew 5 の 9 の, 5 の 9, 599, 3 の 9 の  " マウ ス 移 動 四 囲 の 設定 
Setmouse 25 の , 159: PSET (25 の 9 の , 15 の 9@), の 
DO 
Getmouse Right, Left, XX, Y 
MOuSe の ゅ 
LINE -(x, 了 ), 5 
Mouse 1 


LOOP WIIILE Right = @ 


Mvlew の 9, 9 の, 639, 399 
MOUuSe 
CLS 








Mview _ xmin。 ymin, xmax,。 ymax 





し _ 右 下 隅 座 禁 








状態 の マウ ス ・ カ ー ソ ル の 移動 男 胃 は (0.0) 一 (639,399/199) で 
きこ (xmin , ymin) 一 (xmax,ymax) の 男 囲 に 設定 し ます . 
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使用 例 


ライ ブラ リ 使 用 上 の 注意 点 


時 マウ ス 位置 へ の グラ フィ ッ ク の 描画 


マウ ス ・ カ ー ソ ル は , グラ フィ ッ ク 画 面 上 に XOR で 表示 され て いる た だ ため , マウ ス 
と グラ フィ ッ ク 画 面 上 の デー タ と が 重なっ た と き は , XOR が と られ て 実際 の 色 と は 
異な っ て 見 えた ます が , これ は カー ソル が 通り 過ぎ れ ば 元 に 戻る の で 問題 は あり ませ 
ん . し か し , 次 の よう な 場合 に は 間 題 が 生じ し ます. 

・ マ ウス 表示 中 に CLS で グラ フィ ッ ク 画 面 を 消し た 場合 ,. マウ ス ・ カ ー ソ ル の 残 
像 が 出る . 

・ マ ウス ・ カ ー ソ ル が 表示 され て いる 位置 に グラ フィ ッ ク 捕 画す る と , マウ ス 色 
と の XOR が と られ て , 指定 と 異な る 色 で 描か れる こと が ある . 

そこ で この 場合 に は , グラ フィ ッ ク 操 作 を 行う 前 に , 次 の 方 法 で マウ ス ・ カ ー ソ ル 
を 消し , 操作 が 終わ っ た ら 表 示さ せる よう に し ます . 














Mouse ! マリ ウス s カー ソル を 消す 
CL し ら S 
Mouse 1 … マ ウス ・ カ ー ソ ル を 表示 


Mouse 0U 
LINE (x1,y1) 一 (x2, y2) 
Mouse 1 





較 ボ タン 押し 下げ の 検知 


マウ ス の 「 ボ タン を 押す (離す )」 と いう 動作 は , コン ピュ ー タ の スピ ー ド に 比べ て は 
る か に 遅い の で ,。 も し ボタ ン 押 し 下げ の 検知 部 分 が ルー プ ブ 内 に ある 場合 に は , ボタ ン 
を 1 回 押し た つも り で も 、 何 回 も 押し た こと に な っ て し まい ます 。 そこ で フラ グ 
free を 用 い , ボタ ン が 離さ れる と free を 1 に セッ ト す る よう に し て お き , ボタ ン 押 
し 下げ 検知 部 分 で は , free が 1 で な けれ ば ボタ ン が いく ら 押 され て いて も 押し た と 
みな 8 な いよ うに し まず すず. 
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Tree 三 1 


Getmouse Right, Left, x。 y 
DO WHILE Right=0 
IF left く > 0 AND free= ニ 1 THEN 
左 ボ タン が 押さ れ た と き の 処 理 


Tree 三 0 

END | 上 IF 

IF Left 三 0 THEN 
free 三 1 

END 上 F 


LOOP 


炊 の ブロ グラ ム は ,。 左 ボタ ン を 押し た と き の 2 点 間 を 直線 で 結ぶ も の で す . 右 ボ ポタ 
ン を 押せ ば ブ プログラム か ら 抜 け ま す . 


「 ーー-/* 2 点 間 の 直線 を 引く */--- 
'$ る INCLUDE: b:mouse.h" 


SCREEN の : CLS 
「lag = 9: free = 1 


Mouselini 
Setmoulse 320. 200 
OUSG 1 


Gotmouse RIght, Left 上 , XX。 Y 
DO WHITE Right = 
IF Iceft <> の 9 AND free = 1 THIN 
IF flag = ⑳ TIIEN 


XS = 区 
YS デザ 
flag = 1 
ELSE* 
IOUSG 
LINE (XS, YS)-(X, Y), 1 
flag = の 
mmOUSG 1 
END 1F 
free = 
END 1F 
TE Left = ⑳ THEN 
froe = 1 
END IF 
GetmousSe Right, LefIL,。 XX, Y 
LOOPP 
moOuSe 
CLS 
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第 / 草 マウ ス ・ イ ンタ ー フ ェ ー ス 










メニ ュー 選択 ー 
マウ ス を 用 いて CRT 上 の メニ ュー を 選択 する と いう の は , マウ ス の 一 番 基 本 的 な 
使用 法 で す . 以下 に 示す よう に , 1 一 7 の メニ ュー を 表示 させ て お き , カー ソル を 目 
的 の メニ ュー 位置 に 合わ せ て 左 ボ タン を 押す と , その メニ ュー が 選択 され る と いう プ 
ログ ダラ ム を 作っ て みみ まし ょ う .。 


@ メニ ュー 選択 
10 カ ラム ZU カ ブ ム 





メニ ュー と し て 検知 で きる 範囲 は 。 各 メ ニュ ー の 先頭 か ら 8 文字 と し ます (グラ フ 
ィ ッ ク 座 標 に 直す と 横 縦 が 64 メ X メ 20 ドット の 範囲 )、 各 メ ニュ ー は 10 カ ラム お き に 並ん 
で ぃ いる の で ,。 for ルー プ で まわ し て , 各 メ ニュ ー の エリ ア に マウ ス ・ カ ー ソ ル が 入っ 
て いる か 人 箇 か を チェ ッ ク し ます . 

次 の プロ グラ ム は マウ ス ・ カ ー ソ ル の 軌跡 を 表示 する も の で す が , その 表示 色 を メ 
ニュ ー で 選択 で きる よう に し た も の で す 。. 


"ーー--/* マウ ス に よる メニ ュー 選択 */--- 
'STINCLUDE: b:mouse.h' 


SCREEN 9: CLS 
MouSseln1 


PRINT "1: blue 2: green 3: 1b1ue 4: Fed  “: 
PRINT "5:violet 6:yellow 7:white“" 


Setmouse 329, 299: PSET (329, 299), 9 
DO 
GetmouSse Right, Left, X, Y 
IF Left <> の @ THEN 
C = 1 
FOR k = @ TO 6 
1F 9 <YANDyY< 2 
C = + 1 6 
EXTT FOR 
END ITF 
NEXT k 
END ITF 
moOuSe 
ETNE ニニ (%。 導 。 や 
mOuSe 1 
LOOP WHILE Right = 9 
mOuSe の 
CLS 


9 AND k * 19 * 8 <x ANDxX< k * 19 w 8+ 64 THEN 
選択 し た 色 


209% 








マウ ス に よる 3 


を 元 に 回 転 体 を 表示 し ます . 
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@ 申 転 体 モ デル 





火 


元 図形 の 作図 


3 次 元 図形 の 基本 的 モデ ル で ある 回 転 体 を . マウ ス を 用 いて 作図 し ます . 
マウ ス の 左 ボ タン を 押す と , その 位置 に 〇 印 が 表示 され , その 点 の 座標 が 回 転 体 の 
楼 線 デー タ と な り ま す . 何 点 お の デー タ を と っ た あと , 右 ボ タン を 押す と その デー タ 





DECLARE SU Rotate (x! 。 Y!, 
"INCLUDE: 'b:mouse.h' 
CONST Rd = 3.14159 / 189 
DIM Y(209) , r(29) 

8X = 2 の # RO: BY = -35 #w Rd 
Um = 9: free = 1 


SCREEN @: CELLS 
Mouseln1i 


FOR xX = 9 TO 639 STEP 2 


LINE (X。 の 9)-(xX。 399)。 1。 。 &IICCCC 


NEKXI XX 
OK Y = 9 TO 399 STEP 20 


LINE (の 0。 了 )-(639。 yy) 。 1 。 。 &IICCCC 


NEXT y 
LINE (329, の )-(32 の 9, 399) 。 1 
LINK (の 9 の, 209)-(639, 209), 1 


Setmouse 320。 200 


mmOUSe 1 
DO 
GectmousSe Right, Lecft, x 
TF Iieft <> の AND frec = 
moOuSe の 
に LNRCEE 1 テ 。 ザ )。 3 
mouSe 1 


Tr(num) = 32 の 9 - XX 
Y(num) = 209 - 
TU = mm + 1 
free = の 
END ITF 
1F Left = @ THEN free = 
LOODP WIIILE Right = の 


6 デ 
1 TIIEN 


D! 。 DY】) 


格子 


左 ポ タン 押下 


左 ポ ボタ ン 了 離 








第 / 草 マウ ス ・ イ ンタ ー フ ェ ー ス 


OUSe 
WINDOW (-329, -209)-(9320, 200) 


FOR k = @ TO num - 1 
FOR n = 9 TO 369 STEP 109 
X = F(K) w COS(m * RdJj) 
Z = r(K) *w SIN(n * Rd) 
Rotate X, Y(k),。 と , AX。 ayY, DX。 DYT 
IF mn = の TIIEN 
PSET (pxX, py), 3 


y 軸 回 り の 回 転 軌跡 


ELSE 
LINE -(DX, Dy), 3 
END IF 
NEXT nmn 
NEXT k 
FOR n = の TO 36@ STEP 69 ” 科 線 


FOR k = の @ TO n ロ um - 1 

X = r(k) #* COS(n * Rd) 
有 ァ = Fr(k) * SIN(ii * Rd) 
Rotate X。 Y(k),。 ZZ, 8aX,。 8Y, DX。 DY 
1F k = ⑳ THEN 

PSET (px, py), 4 
ELSE 

LINE -(px, py), 3 
END 1F 

NEXT k 
NEXT n 


SUB Rotate (X,。 Y, ZZ。 8X,。 8Y。 DX。 DY) 

DX = X * COS( ョ Y) + 巡 * SIN(aY) 

Py = y * COS(ax) - (-X * SIN(aY) + Z * COS(ay) ) * SIN(ax) 
END SUB 
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アセンブリ 言語 
イン ター フェ ー ス 


Quick BASIC か ら ア セン プ ブリ 言語 (MASM) ルー チン を 利用 する 方 法 を 説明 し ま 
す . 


アセ ン ブ リ 言語 ルー チン 利用 の 概要 


Quick BASIC お よび アセ ンプ ブリ 言語 プロ グラ ム は 個々 に コン パイ ル ま た は アセ ン 
ブル し た あと , リロ ケー タプ ブル ・ オ プ デ ジェ クト ( ver rs 合 し ます . 

Quick BASIC か ら ア セン ブリ 言語 ルー チン を コー ル す る に は , 一 般 の プロ シー ジ 
ャ の コー ル と 同様 に , 

プロ シー ジャ 名 引数 , 引数 … 

と し ます . これ に より , 引数 リス ト の 左端 の も の か ら 順 に スタ ッ ク に 積ま れ , アセ ン 

アリ 言語 ルー チン に 制御 が 渡さ れ ま す . 

アセ ン ブ リ 言 語 ル ルーチン の 手続 き (PROC) に 付け る 名 前 が 手続 き 名 に な り ま す の 
で , PUBLIC 富 言 に より 外部 参照 され る こと を 示し て お きま す . た だ し , .MODEL 擬 
似 命 令 で .MODEL MEDIUM, BASIC と 言語 名 を 指定 し て お け ば , PUBLIC 宣言 し な 
く て も か まい ませ ん . 




















DECLARE FUNCTION tasu (ab 少 ) 
. BC 


コン バイ ル 





tasu (3, 5) 
LINK 


ー ト リン クー 


@ Ouick BASIC プロ グラ ム 





.MODEL MEDIUM 
| .CODE 


public tasu 
taSU DrOC 


プロ シー ジャ 本 体 
リタ ー シ 





| tasu endp 
end 


@ ア セン ブリ 言語 ブ プログラム 
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第 B 草 他 言語 と の イン ター フェ ー ス 






引数 の 受け 渡し 方 


プロ シー ジャ の コー ル 時 に 引数 は 左端 の も の か ら 順 に スタ ッ ク に 積ま れ , 最後 に リ 
ター ン ・ ア ドレ ス が 積ま れ ま す . Quick BASIC の プロ シー ジャ コー ル は FAR 呼び 出 
し な の で 、。 リ み メー シャ アド レス は 4 ダイ トド ト です. 

呼び 出し 側 の bp( ベ ー ス ・ ボ ポインタ) の 値 は 保存 し な けれ ば な り ま せん の で , まず 
bp の 値 を ユー ザ が push し ます . 


ブロ シー ジャ 名 proc 
Dush bp 





プロ シー ジャ 名 引数 1, 引数 2,…5 引 数 n 





mov DD, Sp 


pop bp 
ret nr 


スタ ッ ク に 積ん だ 引数 
の バイ ト 数 を 指定 する 


アセ ン ブ リ ・ ル ー チ ン 3SP (スタ ッ ク ・ ポ イン タ ) 


の 先頭 で push 


ズ スロ シー ツク ャ の 
コー ル 時 に 積ま れる 


引数 が 積ま れる 





スグ ツク グ 


この と き , スタ ッ ク ・ ボ ポインタ sp は 上 図 の 位置 を 指し て いま すか ら , この 値 を bp 
に 入れ . 以後 は bp を も と に し て 次 の よう に 引数 デー タ を 参照 する こと が で きま す . 


moVv DD,。 SD 
mov bx。 [bp 十 6」 <n 引 数 の アド レス を bx に 入れ る . 
mov ax。 |「bx | ー 夫 n 引 数 の 値 を ax に 入れ る . 


な お , この 例 は 引数 が 整数 型 (2 バイ ト ) を 想定 し て いま す . 引数 の デー タ 型 に より 
bp に 加え る 値 は 変わ り ま す . 
整数 型 2 クッ エイ ト 


倍 長 整数 型 …4 バ イト. スタ ッ ク に は 上 位 バ イト , 下位 バイ ト の 
順に 積ま れる . 
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アセ ン ブ リ ・ ル ー チ ン か ら 値 を 返す 


Quick BASIC の 関数 プロ シー ジャ に 戻り 値 を 与え る に は , デー タ の 型 に 応じ て 次 
人 の よう り 恋 レジ スグ に 人 慎 を サ そ アリ ター シン し ます 


倍 長 整数 






。 人 
上 位 





下位 





4| プロ グラ ム 開 発 の 具体 例 


整数 更 デ ー ク タテ ェ %,726 を 受け と り , x% 十 y% を 求め て 返す アセ ンプ リ 言 語 プ ロ シ 
ー ジ ャ tasu と 。 それ を 呼び 出す Quick BASIC プロ グラ ム を 示し ます . 

(Quick BASIC の デフ ォ ル ト の メモ リ ・ モ デル は ミディ アム (コー ド は FAR. デ ー タ 
は NEAR の メモ リ ・ モ デル ) なので, アセ ンプ ブリ 言語 ルー チン も ミディ アム と し ま 
す . も ちろ ん ラー ジ , ヒュ ー ジ で の メモ リ ・ モ デル も 作成 で きま す . 

Quick BASIC は プロ シー ジャ 名 の 小文字 と 大 文字 は 区 別 せ ず , すべ て 大 文字 に 変 
換 し て 処理 し ます . また プロ シー ジャ 名 の あと に 付加 し た 型 宣言 文字 %, 和 &, !,# 
$ は 除去 し ます . し た が っ て , Quick BASIC の プロ シー ジャ 名 tasu% の % は 除去 き 
れ て リン カ に 渡さ れる こと に な り ま すか ら , アセ ンプ ブリ 言語 側 の プロ シー ジャ 名 を 
tasu% に する 必要 は な い の で す . 








免 btasu.bas 


ーー-/* 足し 算 */--- 


DECLARE FUNCTION LaSu% (x%。 ア %) 


PRINT tasu%(3,。 5) 





ノ 106 


第 8 章 他 言語 と の イン ター フェ ー ス 


葵 tasu.aSsm 





ーーーー-/* 足し 算 */----- 


.MODEL MEDIUM ーーーー ミ ディ アム ・ メ モリ ・ モ デル の 指示 
.CODE 

pub]1ic tasu 
tasSu DrOC 

puSsh bp 

mOY DD , SD 


moV DX, |Dp+8] 
mOY 中 売 。『B 湊 
mmOV bX , [bp+6 ] 
dd ね 光 」IDXI 


DOD Dp 
et 上 


4 
endp 4 引数 が 積ま れ て いた スタ ッ ク を 解放 


end 


SP 叉 
呼び 出し 側 bp 


mov bx, |bp 十 8 | 


2% の アド レス ジ 


2 
| リウ グー シー アザ ピス 

+6 ーー 

+8 ーー 





スタ ッ ク mov bx, [bp 十 6 ] 
add ax, |bx| 


この ウラ つ ク の プロ プラ フ ム みみ コン が イル お よび アモ セン プル し て 。 リル ツタ する あぁ あ よ うす ず 以 
牙 ほ 生 し ほす 、 
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珍 コ 


ン バ パ バイル / ア セン ブル / リ ンク の 具体 例 


A2be。 btasd: = キーーーーーー 一 bfasu. bas の コシ バイ ル 


Microsoft (R) QuickBASIC KANJI Compiler Version 4.20 
(C) Copyright Microsoft Corporation 1982-1988. 
All rights reserved. 


43527 Bytes Available 
43121| Bytes Free 


0 Warning Error(s) 
0 Severe Error(s) 


A>mas 和 tasu: < キーーーーーtasu. asm の アセ ンプ ブル 
Microsoft (R) Macro Assembler Version 5.10 
Copyright (C) Microsoft Corp 1981. 1988. All rights reserved. 


49510 +† 273599 Bytes syYmbol space free 


0 WarninE Errors 
0 SeveTe Errors 


A>link btasu+tasu: ーーーー-btasu. Obj と tasu. obj の リン ク 


Microsoft (R) Overlay Linker Yersion 3.65 
Copyright (C) Microsoft Corp 1983-1988. All rights reserved. 


な お , Quick BASIC の 引数 渡し は , デフ ォ ル ト で 変数 の アド レス を 渡し ます が , 
DECLARE 文 で BYVAL を 指定 する こと で , 変数 の 値 を 渡す こと が で きま す (call 
by value)。 先 の tasu プロ シー ジャ を この よう な 方 法 で 作る と 次 の よう に な り ま す . 


@ Quick BASIC プロ グラ ム 





218 


ーーー-7* 足し 算 */ーー- 「ーーーーーーー 引 数 の 値 を 渡す た め の 指示 
DECLARE FUNCTION tasu% (BYVAL x%, BYVAL y%) 


PRINT tansu%(3。 5) 


第 6 草 他 言 語 こ の イン ター フェ ー ス 


人 ア セン ブリ 言語 プロ グ クラム 


! ーーーーー /* 足し 算 */---ー- 

.MODEL MEDTUM 

.CODP 
publ1ic tasu 

taSu PTOC ーー 
puSh bp ・ ベー ス ・ ボ ポイ ンタ の 退避 
moOY bp , SD ・ スタック ・ ポ イン タ の 取得 
mmOV 8X,[bp+8] ・ x の 値 を 取得 
add 8aX,[bpr6] 5 発 手 飛 
POP bp 
ret 4 

taSu endp 
end 


引数 授受 の 具体 例 


還 文 字 列 デ ー タ の 引き 渡し 


文字 列 デ ー タ を 渡す に は , SADD に より 文字 列 が 格納 され て いる 先頭 アド レス を 
取り 出し て 渡し ます . アセ ン ブ リ 言語 ルー チン で は , 文字 列 の 長き , また は 文字 列 の 
終了 マー ク が 必要 と な る の で , どちら か を 渡す 必要 が あり ます . 

次 の 例 は 。 Quick BASIC の 文字 列 デ ー タ を , シス テム コー ル no9 で 出力 する アセ 
ツブ リリ 言 宙 プ アロ シー ジョ ャ sp で す " 
















プア ンク ショ ン no 9 で 参照 


文字 列 の 格納 場所 


呼び 出し 側 bp 
+2 | ーー 


リタ ダー シゲ デ ド レス 


ーー ーー ーー ーー 一 一 一 一 一 一 ーー 一 ーー ーー 一 一 ーー ーー 一 ーー ーー ーー ーー 一 ご 


- mov dx, [dp 十 6 | ' 









文字 列 の 先頭 アド レス 
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王 Quick BASIC プ ログ ラム 





リーー-/* 文字 列 の 引渡 し */--- 
DECLARE SUB disp (BYVAI, adr 各 ) 


8$ = “Hello Qulck Basic" + CHR$(&HA) + CIHR も (HID ) ょ " 征 " 
b$ = "構造 化 B AS I C" + ュ CHR$S(&HA) + CHR$(&HD) + "$" 


dl sp SAD)D( a$) 
disp SADD(Db$ ) 


デア セン プリ 言語 プロ グ クラム 
ーーーーー-/* 文字 列 の 表示 */------ 
MEDIUM 


pub11ic 
DrTOC 
puSh 
IOYV 


mmOV ,Lbp+6 ] 
四 OV 9 
1nt 


DOD 
Fet 
endp 
end 





虹 ア セン ブリ 言語 ルー チン と の cgll Dy referenC@e 


束 救 刑 デ ー タ x92.y% を 受け 取り , x% 十 y% の 結果 を 引数 を 介し て 返す サブ ルー 
チン ・ プ ロ シ ジー ジャ tasu を 作り ます . 

Quick BASIC 側 の 変数 result% は , 呼び 出し 側 の スタ ッ ク に 言 か れ て いま す . プ 
ロ シ ー ジ ャ add の 呼び 出し 時 に は この 変数 の アド レス が スタ ッ ク に 積ま れる の で , 
この 値 を レジ スタ bx に 受け 取り [bx]l と する こと で , Quick BASIC 側 の 変数 
result9% の 内 容 が 参照 で きま す (call by reference) . 
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第 B 草 他 言語 と の イン ター フェ ー ス 






SP 区 


呼び 出し 側 の bp 
十 2 ーーーー ーーー 






レジ スタ bx 










上 6 mov bx。 |bp 十 6 | 


| result 作 の アド ドレ ス 


y の 







8 
|0| 


呼び 出し 側 
70 ス タッ ン 





ーー ーー ーー 一 


result の 


の Quick BASIC プログ ラム 





、 nnn が 年 で メデ リ 対 語 と の コー ルイ リブ ファ レジン */ ニ ーー 
DECLARE SUB tasu (BYVAL X%。 BYVAEL y%。 result%) 


INPUT “data X,Y ア  ! X%。 YY 


LaSU XX%。 Y%,。 FeSuUlItL 各 


PRINT reSsult% 


@ ア セン ブリ 言語 プロ グラ ム 
* ニーー ニ ーー /* ba s 』 c 側 に 引数 を 介し て 値 を 返す */--ーーー 
.MODEL。 MEDIUM 
.CODE 
Dub1iC tasu 
LaSu DrTOC 
puSh bp 
ImOV DD , SD 
mOV 8X, [bp+10] Xx の 値 を ax に 取得 
add aX, [bp+81 > X 十 y 
moOV bx, [bp+6] : 第 3 引数 の アド レス 取得 
mOV [bx]l,ax ・ b a s 』 c 側 に 値 和 を 返す 
DOD bp 
et 6 
も taSu endDp 
end 
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男 倍 長 整数 デー タ の 受け 渡し 

倍 長 整数 型 デ ー タ x&,y& を 受け 取り , x 双 十 y 和 & の 結果 を 返す 関数 プロ シー ジャ 
ltasu&(x 双 ,y&) を 作り ます . 倍 長 整数 型 デ ー タ は , スタ ッ ク に 上 位 , 下位 の 順に 積 
まれ ます . 





SP 区 | ーー 
呼び 出し 側 bp 


りー ン ニュ ナド レス 
 b 


_y& (下位 ) 


x& (下位 ) 


入信 倍 ト ーー gs | | sh 
( 聞 数 戻り 値 


上 位 - 二 位 





加算 は 下位 ワー ド ど うし の ax 十 bx, それ か ら 発 生 す る キャ リー を 含め て 上 位 ワ ー 
ド ど うし の cx 士 dx を 行い , 結果 を dx( 上 位 ワ ー ド ), ax( 下 位 ワ ソー ド ) に 収め ます . 


@ Quick BASIC プ ログ ラム 





ーーー-/* 倍 長 法 数 の 足し 算 */--- 
DECLARE FUNCTION 1tasu& (BYVAI x&。 BYVAL y&) 


INPUT "data XX ょ YY  : 区 多 。 Y 


PRINT 1tnSu&(X&。 Y&) 


ノノ フ 


素 B 草 他 言語 と この イン ター フェ ー ス 
@⑯ ア セン プリ 言語 理 プ ログ ラム 


: ーーーーー /* 倍 長 整 数 の 足し 算 */----- 


-MODEL MEDTUM 
. じ CODE 

public ltagsu 
1tasu DPTOC 


puSsh bp ベー スス ・ ギ イン タタ の 退避 
mmOYV DD , SD スタ ッ ク ポイ ンタ の 取 利 
mmOV dx , [bp+12] : 朱 0 上 憶 パ イト 
moV bx, [bp+10] 5 xX の 下位 バイ ト 
mmOV CX, [bpr8] > YY の 上 位 バ イト 
mmOV 8X, [bp+6] ・ YY の 下位 バイ ト 
add 8BX, DX : 下位 バイ ト の 加算 
adC dX , CX > 上位 バ イト の 加算 
DOD bp 
et 8 
1taSu endp 


| アセ ッ プリ 詩 ル ー チ ン の 応用 例 (セク タ ・ ダ ッ プ ・ プログラム) 


ディ スク 上 の 1 セク タ を リー ド す る プロ シー ジャ secread を アセ ンプ ) 言語 で 作 
り 。 リー ド し た デー た ルト と ル mk に BASIC で 作り ます . 

ディ スク を ダイ レク ト ・ リ ー ド する に は , ソフ トウ ェ ア 割 り 込 み の int 25h を 用 い 
て 次 の よう に 行い ます . 








ax ドラ イブ 番号 (0: ドラ イブ A,1: ドラ イブ B,…") 
bx ご リー ド ・ バ ッ フ ァ の オフ セッ ト 値 
GX す を リー ド す る ゐる セグ タダ 数 
dx リー ド 開 始 相 対 セ クタ 番号 
Int 25h 
popf 
int 25h の 割り 込み で は , リタ ー ン 時 に 内 部 的 に フラ グ {f を push し て いる の で , プ 
ログ ラマ が popf に より フラ グ を 取り 出し て お か な PT ませ ん 


Quick BASIC 側 で は secread を 次 の よう に 呼ぶ に し , それ ぞ れ の 引数 を 上 記 
レジ スタ に 渡し ます . 


secread VARPTR(diskbuf)。 dr9%。 sec9%6 
| 1 し 開始 相対 セク タ 番 号 
リー ド パ ッ ファ 7 の オフ 7 セッ ト 値 ドラ イブ 番号 


な お , int 25h で は セグ メン ト ・ レ ジス タ 以 外 の すべ て の レジ スタ が 破壊 され ます . 
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@ Quick BASIC プロ グラ ム 


DECLARE SUB secread (BYVAL buf%,。 BYVAL dr%, BYVAL SeC% ) 
DIM diskbuf AS STRING # 1924 


TNPUT "ドラ イブ 閣 同 ": Qr% 
INPUT "セク タタ 番号 ": sec% 


Secread VARPTR(diskbuf ) , dr 系, Sec ) マシ ン 話 コー ル 


FOR 】] = @ TO 1924 / 16 - 1 


PRINT RIGHT$("999" + HEX$(] * 16), 4): " : ":  !' 番地 
FOR 1 = 9 TO 15 ' 1 6 進 表 示 

PRINT RIGHT$("99" + HEX$(ASC(MTDS(diskbuf, ] * 16 + 1 + 1,。 1))), 2): " ": 
NEXT 1 
PRINT "  “": 
FOR 1 = @ TO 15 "アス キー 表示 


a$ = MID$S(diskbuf, ] * 16 + 1 + 1。 1) 
ITF " "< aa$ AND a$5 < " "THEN 
PRTNT 8a$: 
ELSE 
PRINT ”。 i 
END IF 
NEXT1 1 
PRTNT 
NEXT j 


@ ア セン ブリ 言語 プロ クラ ム 


に 


.MODEL MEDIUM 


pub11cC secread 
SeCread DrOC 


push bp 
mOYV DD , SD 
OV dx , [bp+6 ] ・ セク タタ 番号 
mOY CX 。1 ・ リー ド セ ク タ 数 
moV 8X, [bp+8] ドラ ライ オプ 般 号 
mOY bX, [bp+109 ・ リー ド ・ バ パ バップ ファ 番地 
1nt 25h 
popf ・ DOD げ 1ag 
Cc1d ・ clear direction fl1ag 
pOp bp 
ret 6 
SeCread endp 
end 
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第 B 草 他 言 語 と の イン ター フェ ー ス 


0000: 52 45 41 44 43 4F 4D 20 42 41 53 20 00 00 00 00 READCOM. BAS.. . .. 


0010: 00 00 00 00 00 00 1D 860 85 12 02 00 592 01 006 00  。。。。。。。」』。。。 了 R。 。。 
0020: 50 52 49 4E 54 45 52 20 42 41 53 20 00 00 00 00 PRIWLEKRK、BAS。. .. 
0030: 00 00 00 00 00 00 21 69 76 13 04 00 74 12 00 00  ...... > > 電 。 。 。 
0040: 47 53 41 56 45 20 20 20 42 41 53 20 00 00 00 00 は SA WE 。 、 有 AS、 、 。 。 . 
0050: 00 00 00 00 00 00 BB BS) 56 0F 03 00 50 06 00 00  ........ まま ysi 
0060: 44 4F 54 31 36 20 20 20 42 41 53 20 00 00 00 00 り 0 よ 5D、。 BAS。.,。、 
0070: 00 00 00 00 00 00 33 49 45 0F 0』 00 D3 00 00 00  ...... 3. 朋 p en ss: 
0080: 50 52 49 4E 54 45 52 20 42 49 20 20 00 00 00 00 PRINIERK. Bl. 上 に 請 層 る 
0090: 00 00 00 00 00 00 42A49 45 0F 0B 00 53 01 00 00 等 電 の あめ 8 
00A0: 432 48 49 4C 44 3 20 20 42 41 53 20 00 00 00 00 CHILD1. BAS SW 
00BO: 00 00 00 00 00 00 69 6B 6A4 0F 09 00 BE 00 00 00  .....…. 義 1aeii さ : 
00C0: 43 48 49 4(C 44 32 20 20 42 41 53 20 00 00 00 00 し ELU2、、 AO is:。 
00D0: 00 00 00 00 00 00 48 6B 64 0F 0C 00 80 00 00 00  ...... 馬 。。、。。。 。。 
00EO: 50 52 49 4E 54 45 52 20 48 20 20 20 00 00 00 00 人 旨 肖 要旨 en 
00FO: 00 00 00 00 00 00 91 45 74 0F 13 00 45 02 00 00  ....... 馬 才 と ビ 。 。、 





マク ロ 定 義 フ ァイル の 利用 


MASM Ver.5.1 で は , 他 言 語 と の イン ター フェ ー ス を 行う の に 便利 な マク ロ を 
mixed.inc に 定義 し て あり ます . この ファ イル を 使う と , 次 の よう に プロ シー ジャ の 
定義 が 簡単 に 記述 で きま す . 





BASIC _ EQU 1 プロ シー ジャ 名 
include mixed. Inc 「" 引数 の 宣言 
一 第 2 引数 の 宣言 
hProc Hiku。 x : し y : word 


mov ax。 x 一 第 1 引数 を ax に 取得 


hRet 
hEndp 


@ Quick BASIC プロ グラ ム 


ーーー/* 引 算 */--- 
DECLARE FUNCTITON HIKu% (BYVAL XX AS TNITEGER , BYVAL y AS ITNTEGER ) 


INPUT “data X, ア ": XX 。 Y% 


PRINT HIiKku%(X%, Y%) 
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多 ア セン ブリ 言語 プロ グラ ム 


・ ーー--/* マク ロ 定 義 フ ァイル の 利用 */--- 


BAS1IC EQU 1 ・ BASTC 
include mlxed.1nc ・ マク ロ 定 義 フ ァイル の イン クル ー ド 


setModel medium 

.Code 

hProc HIiKUu,X:WOrTd,Y:WOFrd 
mOV BX 。 双 

Sub 8X,T ア 

hRet 

hEndp 

end 








他 言語 ルー チン を uick BASIO』 


他 言 語 ル ー チ ン を Quick BASIC 環境 か ら 使 うに リン ク 時 に /Q オプ ショ ン を 
指定 し て 。 ,.QLB ライ デラ ブラリ を 作 席 し て お きま す . 

だ と ん ほほ 先 の SECREAD OBIT や グイ ッ ク ャ トラ イズ ラリ MYLIR OLB と し て 作 
成す る に は ,。 次 の よう に し ます . 





A>LINK /Q SECREAD, MYLIB. QLB,, BQLB45. LIB : 


| し 必ず 指定 する 
ライ プラ リ 名 
オプ ジェ クト ・ フ ァイル 名 . 複 数 ある 場合 は 十 で 結ぶ 


こう し て お いて , Quick BASIC 起動 時 に , 
A>QB  /LMYLIB 


と クイ ッ ク ・ ラ イブ ラリ を 取り 込め ば , Quick BASIC 環境 下 か ら secread プロ シー 
ジャ を 利用 する こと が で きま す . 
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_Quick BASIC か ら C 言語 (MS-C また は Quick C) を 利用 する 方 法 を 説明 し ま す . 


言語 ルー チン 利用 の 概要 


基本 的 に は アセ ンプ ブリ 言語 ルー チン の 場合 と 同じ で す が , 次 の 点 に 注意 し て くだ さ 








・Quick BASIC の 引数 渡し は , 引数 の 左端 か ら ス タッ ク に 積む の に 対し , C で は 右 
端 の 引数 か ら ス タッ ク に 積ん で いく . 
そこ で , Quick BASIC ブロ グラ フラム の DECLARE 定 言 時 に CDECL を 指定 する こ 
と で , Quick BASIC の 引数 渡し の 手順 を C タイプ に 指定 する こと が で きる 。. 

言語 を リン グ ク す る 場合 , 標準 ライ ブラ リ を 必要 と する の で , メモ リ ・ モ デル に 合 
っ た 標準 ライ ブラ リ を 用 意 す る . Quick BASIC は ミディ アム , ラー ジ 。 ヒュ ー ジ 
の 3 つの メモ リ ・ モ デル が 可能 .。 ス モー ル ・ モ デル ,。 コン パク ト ・ モ デル は サポ ボー 
ト し な い の で 注意 する . 
・ リ ング ク 時 に ライ ブラ リ 間 (Quick BASIC の ライ ブラ リ と C じ の ライ プ ブラリ) で 重複 し 
て いる モジ ュー ル の 検索 を 避け る た め , /NOE オプ ショ ン を 指定 する . 


き Quick BASIC プ ログ ラム 


ーー-/* 引き 算 */--- 


DEFINT A-Z 
DECLARE FUNCTION hiku CDECL (a AS INTEGER, b AS INTEGER ) 


ーー C 型 の 引数 渡し 手順 を 行う た め の 指 示 


INPUT "data a,D ": a, Db 





PRINT hikKku(a, b) 


倫 C 言 語 プ ログ ラム 
/* CC 言語 ルー チン s/ 


1nt hiku( 1nt wa,1nt wb) 
{ 


return((*8)-( *D) ) : 
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@$ コ ン バ イ ル / リ ンク の よう す 


ee 
ee 
ーー 


ー コ ン バ イ ル の み 行 うた め の 指 示 
| ミディ アム ・ モ デル 

A2cl /c /AM hiku.c hiKku.Cc の コン パイ ル 

Wicrosoft (R) C Optimizing Compiler Wersion 5.10 

CODYTight (C) Microsoft Corp 1984. 1965, 1986, 1987. 1988. All TiIghtS reserved. 





hikKu.c 


2DC chiku,.chiku: = キーーーーーー Chiku. bas の コン パイ ル 
Wicrosoft (R) QuickBASIC KANJI Compiler Version 4 70 
(C) Copyright Microsoft Corporation 1982-1988. 

Al| rights reserved. 


43463 Bytes Available 
43096 Bytes Free 


0 Warning Error(s) 
0 Severe Error(s) 
' 重複 モジ ュー ル の 検索 を 避け る た め の 指 示 
A>2IinK /noe chiku+hiku.chiku: chiku. obj と hiku. obj の リン ク 





MicrTosoft (R) Overlay Linker Version 3.65 
CODYTIght (C) Microsoft COorD 1983-1988. All TightsS reserved. 


注 ) この 例 は MS-C Ver.5.1 を 用 いて いま す . メモ リ ・ モ デル は ミディ アム な の で MS-C の 
標準 ライ ブラ リ MLIBCE.LIB が 必要 で す . 


ックス ド ・ ラ ン ゲ ッ ジ で の プロ グラ ミン グ を 行う 際 の , 階層 ディ レク トリ 構造 の 


例 を 以下 に 示し ます . 


LINK. EXE 
MASM. EXE 
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「 BCOM45E.LIB 


BRUN45E.LIB C コン パイ ラ 





BASIC コン パイ ラ 
リン カ 
22 ザラ 





SET PATH ニ A : \OB\BIN : A : \MSC\BIN : A : \ 
SE「  LIB=A : \OB\LIB : A : \MSC\LIB 


第 8 章 他 言語 と の イン ター フェ ー ス 


数 渡し の サン フル 


Quick BASIC と C と の 間 の 引数 渡し の 例 を 示し ます . な お , Quick BASIC の 
PRINT と C の printf は お の お の 独自 の 出力 バッ ファ に 出力 する の で , 互い の 出 
力 位置 は 一 致し ませ ん の で 注意 し て くだ さい . 








@⑧ Quick BASIC プロ グラ ム 





′ 引数 渡し の サン プル 
DECLARE SUB para CDECL (BYVAL a%, BYVAL b%, BYVAL c%, res%) 


DIM a%(3) 
a%( の ) = 1: a%(1) = 2: a%(2) = 3 


mSg$ = "Hel1o”" + CHRS$(9 の ) 


para 199,。 SADD(msg$ ) , VARPTR(a%(9) ) , res% 


4  Z/ 4 4 
pauSe$ = INPUT$(1 ) ② ③ (④ 
PRTINT reS% 


の WC プロ グラ ム 
/* 引数 流し の サン プル #/ 


void para(1int 所 4 9 FTGS ) 
4 (④ 
1nt K,SUm= ひ : り り 
printf(”%d %S\n ,a,Str ) : 


fOr (K= の jk くう jiK++) ーー 
Sum=Sumtb[k]: 配列 デー タ の 合計 を 求め る 


*FeS=SUm: ユーーーOB 側 に 返す 


① call by value 
BYVAL a% と いう 引数 指定 に より , 100 と いう 値 が C の 引数 a に 渡さ れる . 
②⑦ 文 字 列 渡し 
SADD(msg$) に より 文字 列 の 先頭 アド レス を 取得 し , その 値 が じ と の ボイン タ str 
に 渡さ れる . * str に より 1 文字 を 参照 で きる . 


③ 配 列 デ ー タ 渡し 
VARPTR(a%(0)) に より 配列 の 先頭 アド レス を 取得 し , その 値 が じ の ボイン タ b 
に 渡さ れる . b[0」,。 bl1。… に より Quick BASIC の a% (0) , a%(1) が 参照 で き 
お 。 


(4) call by reference 
res の アド レス が CC の ボ ポイ ンタ res に 渡さ れる . ※res と する こと で Quick 
BASIC の 変数 res% が 参照 で きる . 


メン ノリ 





標準 ライ ブラ リ の 利用 


C の 標準 ライ ブラ リ 関 数 を Quick BASIC か ら 直 接 利 用 する こと も で きま す . 次 
例 は C の 標準 ライ ブラ リ 関 数 で ある atoi, atol, atof を Quick BASIC か ら 呼 び 出 
す も の で す . 





@ Quick BASIC プロ グラ ム (ato.bas) 





-1234 
-123456 


「 ---/* C 標 準 関数 の 利用 */--- 


DECLARE FUNCTTION atol% CDECL (BYVAL a%) 
DECLARE FUNCTION ato1& CDECL (BYVAL a%) 
DECLARE FUNCTITON atof# CDECL (BYVAL a% 各 ) 





12500000000 


X1$ "-1234” + CHRS(9) 
X2$ "-123456" + CHRS( の ) 
X う ふる "1.25e1 の 9 の" + CHRS( の ) 


PRINT atoi%(SADD(X1$ ) ) 
PRINT ato1&(SADD(x2$) ) 
PRINT atof#(SADD(X3$ ) ) 


この よう に C の 標準 ライ ブラ リ だ け を 利用 する 場合 は , C の .obj ファ イル は な い 
の で 。 リッ ンク 時 に デジ フォ ルト ・ ラ イプ ラリ を 探し ませ ん 。 し た が っ て 。 ユーザ は 次 の 
よう に ライ プラ リ 名 を 精 定 し ます 、 


>2DC atO0. at0: 

Microsoft (R) QuickBASIC KANJI Compiler Version 4.20 
(C) Copyright Microsoft Corporation 1982-1988. 

All rightsS reserved. 


43463 Bytes Available 
4224] Bytes ト Free 


0 Warning Error(s) 
0 Severe Error(s) 


デフ ォ ル ト ・ ラ イブ ラリ の 検索 を し な い 


A>linnk /noe /nod ato,,,bcom42e+mlibce: 


C の ライ ブラ リ 
Microsoft (R) Overlay Linker Version 3.65 0B 0 フイ ブフ リッ 
、Copyright (C) Microsoft Corp 1983-1988. All rightS reserved. 
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@ 記 号 / 英 数 字 項 目 
^C を 受け 付け な い 出 力 81 
-C を 受け 付け な い 入 力 80 
立 H1A 20.106 

&HA 106 

&HD 106 

/NOE オ プシ ョ ン 227 

だ 7 プシ ジ ション 6 

.MODEL 擬似 命令 214 

ぐ 102 

みみ 112 

16 ビ ッ ト ・ ド ッ ト 対応 グラ フィ ックス 135 


Angle 160 

APPEND 16 
AKG.DAS 6/ 
AKG.H 6Z 

Argc%( ) 84 

Argv$ 84 

ASC 62 

ASCIIZ 文字 列 の 取 待 92 


0 s 
DitPattern》 42 
OM 49 
oe 
BSAVE 158 
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Button 200 
BYVAL 218 


_We 
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